Help for this page

Select Code to Download


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