Help for this page

Select Code to Download

Select or download this

for (0..102) {
    $_ = sprintf "%04d\n", $_;
    print;
}

Select or download this
my $new = 'snowscene.' . sprintf( '%04d', $loop) . '.jpg';