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 ] );
    }
  }

##</code><code>##

  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;
  }

##</code><code>##

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