Select Code to Download

#!/usr/bin/perl

...
print crypt($_,
            join('',('.', '/', 0..9,'A'..'Z', 'a'..'z')[rand 64, rand 
+64])),
      "\n" ;