in reply to Is There A Better Way?
print "Enter ID Number: ";
chomp(my $input = <STDIN>);
die "Not a number!" if ($input =~ /\D/);
$input = sprintf("%011d",$input);
print "input: $input\n";
Once (shame on you!)
Twice (shame on me!)
More often than I'd like to be
All the time
Just when answering stupid polls
Who you callin' a fool?
I refuse to vote in this ridiculous poll
Results (449 votes). Check out past polls.