- or download this
unless (@ARGV == 1) {
die "You must specify one argument\n";
}
- or download this
my $argument = $ARGV[0] || 'default' ; # Put your default
# value here
if ($argument eq 'TEST') {....
- or download this
if (defined $ARGV[0] && $ARGV[0] eq 'TEST') {...