my( $s ) = @_;
    srand( $s ^ time );
    my @c = split / */, "bcdfghjklmnpqrstvwxyz";
    my @v = split / */, "aeiou";
    for($i = 1; $i <= 4;$i++){
    print $c[int(rand(20))], $v[int(rand(5))]); 


##</code><code>##

sub encryption{
my( $type ) = @_;
chomp($type);
$password =~ tr/N-ZA-M/A-Z/;
$password =~ tr/n-za-m/a-z/;
return $type;