Problème perl sur UBUNTU

Bonjour,
J’ai installé NAGIOS et MTRG sur UBUNTU, et je veux faire quelque traitement avec un script perl sur le fichier mrtg log ensuite je vais faire une relation avec NAGIOS et le mrtg log.
Voila ce script :
#!/usr/bin/perl
use strict;use warnings;
use Time::Local;

my $adr=$ARGV[0];
my $filename = '/var/www/mrtg/'.$adr.'.log';

my $file_is_open = open (FILE,$filename) ;#or die "$filename";
if(!$file_is_open)
{
print "Cant open file :".$filename."\n";
}

my $test=timegm(localtime);

while ( my $l = <FILE> ){
chomp ($l);
my @line = split / /, $l;


if ($line[0] == $test ){
if ($line[4]==0) {

print "erreur time\n";

}elsif ($line[4] < $ARGV[1] && $line[4] > $ARGV[2]) {

print "val exist\n";

}else{

print "val n'est pas dans lintervl\n";
}
}
}

Ce script récupère le temps actuelle et prend ce temps pour le cherche dans fichier log de mrtg. Si ce temps existe, le programme retourne la valeur du 5ième champ de la ligne de ce fichier convenable à ce temps actuelle. Ce 5ième champs est comparer par deux arguments ARGV[1] et ARGV[2].
Par exemple :
J’ai le fichier log de cette façon :

1036567881 2313865839 3040227868
1036567881 937 713 937 713
1036567581 1561 229 1561 229
1036571100 1831 240 2561 273
1036567200 2473 643 2561 1647
1036566900 2312 1305 2513 1647
Le programme cherche dans le fichier le temps actuel s’il existe ou non.
On suppose que ce temps 1036567581 est le actuelle de cette instant le programme dans ce cas récupère le dernier champ 229.
Puis prend la valeur 229 et la compare par ARGV[1] et ARGV[2] si 229 est entre l’intervalle de ARGV[1] et ARGV[2] le programme affiche « C’est bon » sinon affiche « erreur ».
Mon problème et d’exécuter ce script de cette façon car ce script ne me retourne aucun résultat :
Perl script.pl localhost 200 100
Je veux que le programme me donne :
C’est bon.
Sinon le programme me donne :
Erreur.
Remarque :locahost c’est ARGV[0], 200 est le Max c’est ARGV[1] et 100 est le Min c’est le ARGV[2]

Merci……………………………