#!/usr/bin/perl -w
use strict;

print "Enter ID Number: ";
chomp(my $input = <STDIN>);
die "Not a number!" if ($input =~ /\D/);
$input = sprintf("%011d",$input);

print "input: $input\n";
[download]