open me, '>f:\scripts\text\nodeup.txt';
print me "$ARGV[1] $ARGV[2] is UP on $ARGV[0].\n";
close me
 $ROUTE="myfile"
open route, $ROUTE or die " can't $route\n";
@lines=<ROUTE>
  my $TEST = $ARGV
  
if (grep {$test eq $ARGV} @lines) {
   do command here}

close ROUTE;
exit 0;