Help for this page

Select Code to Download

Select or download this

my $input = undef;
if (@ARGV > 0 && $ARGV[0] !~ /\D/)
{
  $input = shift;
}