Perl - Codigo de RRDTOOL

Hola a todos amigos...

necesito su valiosa ayuda...

estoy realizando tareas de monitorizacion a unos roteadores. y necesito traducir este pseudocodigo a un script de Perl..

espero que me puedan ayudar a traducirlo en Perl...

el codigo es el siguiente...:

mientras no sea fin del universo
hacer
tomar el resultado de
snmputil walk "router" "comunnity" 2.2.1.10
en la variable $in

tomar el resultado de
snmputil walk "router" "comunnity" 2.2.1.16
en la variable $uot

rrdtool update myrouter.rrd N:$in:$out

esperar 5 minutos
hecho.


como quedaria con instrucciones de Perl ?

GRACIAS:;.

estoy realizando mi proyecto de residencia de monitoreo de la red con rrdtool y perl y necesito saber como se trabaja utilizando estas herramientas