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