sub ruler { my $n = ($_[0]+9)/10; (sprintf" "."%10s"x$n."\n",1..$n).'0123456789'x$n."0\n"; } #### perl -e'$n=(9+shift)/10;printf" "."%10s"x$n."\n%s0\n",1..$n,"0123456789"x$n'