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

##</code><code>##

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