print "gimme a seed: ";
my $s = <STDIN>;
my @chars = qw(b c d f g h j k l m n p r s t v w x z);
my @vowels = qw(a e i o u y);
my $length = 4; #Should be (length of password)/2

srand ($s ^ time);

print $chars[int(rand(@chars))], $vowels[int(rand(@vowels))] while($length--);