Select Code to Download

#!/usr/bin/perl

...
if ($ARGV[0] eq 'TEST') {
    print "$ARGV[0]\n";
}

#!/usr/bin/perl

...
if (defined($ARGV[0]) && $ARGV[0] eq 'TEST') {
    print "$ARGV[0]\n";
}