Help for this page

Select Code to Download

Select or download this

$foo = <STDIN>;
if ($foo =~ /^(\d*)$/) {
...
else {
  die "bad input"
}