Script pour MRTG

Bonjour,

bonjour à tous

voilà je voudrais faire un script pour mrtg afin d'afficher la bande passante internet

je connais plutôt bien php mais perl pas du tout

$start= microtime();

$test= exec("wget -t 45 --delete-after -nH --cut-dirs=2 http://site.fr/dossier/fichier.tar.gz";

if(isset($test))
{
$end= microtime();
$time= $end-$start;
}

echo "$time\n";
echo "$time\n";



mais en perl là c'est autre chose

ça donnerais un truc comme ça si microtime() en perl existait

#!/usr/bin/perl

$start= microtime();

$test= "wget -t 45 --delete-after -nH --cut-dirs=2 http://site.fr/dossier/fichier.tar.gz";

$end= microtime();

$time= int ($end - $start);
print "$time\n";
print "$time\n";


voilà si une personne pouvait me donner un coup de main
je vous remercie d'avance de toute l'aide que vous pourrez me donner