sub ruler {
    my $n = ($_[0]+9)/10;
    (sprintf" "."%10s"x$n."\n",1..$n).'0123456789'x$n."0\n";
}
[download]

perl -e'$n=(9+shift)/10;printf" "."%10s"x$n."\n%s0\n",1..$n,"012345678
+9"x$n'
[download]

PerlMonks graciously bestowed by Tim Vroom.
PerlMonks was recently assimilated by The Perl Foundation.
Wonderful Web Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.