Select Code to Download

sub rs{
    my @chars = map chr, 33..126;  # all printable chars
...
    $r .= $chars[rand @chars] for 1 .. shift;
    $r or '';
}