Select Code to Download

sub pad($$) {
    my $string = shift;
...

print pad 123, 5; print "\n";
print pad 59230, 10;

00123
0000059230