http://www.perlmonks.org?node_id=69385


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; }