Make this alittle more clear

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;
[download]

Originally posted as a Categorized Question.