The best way is probably:

my $number = 15;
my $size = 10;
printf "%0" . $size . "d", $number;
[download]

Alternative:

my $number = 15;
my $size = 10;
print '0' x ($size - length($number)) . $number;
[download]

-gryphon
code('Perl') || die;