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