Select Code to Download

#!/usr/bin/perl -w
use strict;
...
  if ($a=~/[^\d]+/){ print "not a number!"; &a;
  } else { print "You typed: $a\n"; &a; }
}

#!/usr/bin/perl -w
use strict;
...
     if ($a=~/[^\d]/){ print "not a number!\n"; goto ASK;
     } else { print "you entered: $a\n"; goto ASK; }
}