Select Code to Download

open me, '>f:\scripts\text\nodeup.txt';
print me "$ARGV1 $ARGV2 is UP on $ARGV0.\n";
...
# here, I can't even guess with any confidence
@lines= my $TEST = $ARGV if (grep {$test eq $ARGV} @lines) { do comman
+d here} close ROUTE;
 exit 0;

my ($first_arg, $second_arg, $third_arg) = @ARGV[0..2];