sub password
  {
    my( $s ) = @_;
    srand( $s ^ time );
    my @c = split / */, "bcdfghjklmnpqrstvwxyz";
    my @v = split / */, "aeiou";
    my @result;
    for ( my $i = 1; $i <= 4; $i++ )
    {
      push @result, $c[ rand @c ], $v[ rand @v ];
    }
    return @result;
  }