Select Code to Download

sub one {
    my ($number) = @_;
    my $padded = sprintf("%09d",$number);
...

print one(43/6),"\n";   # 000000007
print two(43/6),"\n";   # 7.16666666666667