in reply to ASCII Rulers
61 characters in the body of this subroutine:
sub ruler { printf$".'%10s'x($l=(9+pop)/10)."$/0".1234567890x$l.$/,1..$l; }
In Section
Cool Uses for Perl