Select Code to Download

sub ruler {
    my($n,$r) = (int($_[0]+9)/10, ' ');
...
    "$r\n" . '0123456789' x $n . "0\n";
}

123456789_123456789_123456789_123456789_123456789_123456789_