Select Code to Download

#!/usr/bin/perl

...
    my @chars = ('A'..'Z','a'..'z',0..9,'+','/' ); # we use the BASE64
+ chars
    join '', map{ $chars[rand @chars] }1..$n; # session ID
}