Select Code to Download

$input = <STDIN>
  if ($input =~ /\d/) {
...
  } else {
    print "input wasn't a single digit number\n";
  }

$input = <STDIN>
  if ($input =~ /[0-9]/) {
...
  } else {
    print "input wasn't a single digit number\n";
  }

my $number;
chomp ($number = <STDIN>);
if ($number < 10) {
  print "input was either 0-9 or -\n";
}