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