Select Code to Download

use strict;
use warnings;
...
my $str = '0' x (LEN-length($n)) . $n;

print "$str";

00012