Select Code to Download

#!/usr/bin/perl -w
#
...
    my $num = shift;
    return substr("000000" . $num, -6 );
}

~/perl/perlmonks$ ./leading_zeroes.pl
 Num: 000007
...
 Num: 513465
 Num: 004444
 Num: 000029