Select Code to Download

@i='058233660927207121220869229603962185544803008278'=~/.{8}/g;
map{srand$i[$_];map{print chr(32+int(rand 59))}1..4}0..5;

use strict;
use warnings;
...
        ++$seed;
    }
}