Select Code to Download

 $r .= $chars[rand @chars] for 1 .. shift;

#!/usr/bin/perl -nw

...
    $p .= $chars[rand@chars];
    rs($p,$n-1);
}