INPUT: print 'number> ';
chomp(my $input = <STDIN>);

if ($input and $input =~ /[0-9]+/) {
  print $input, "\n"
}
else {
  goto INPUT
}