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

PerlMonks graciously bestowed by Tim Vroom.
PerlMonks went on a couple dates, and then decided to shack up with The Perl Foundation.
Wonderful Web Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.