Select Code to Download

  sub password
  {
    my( $s ) = @_;
...
      return( $c[ rand @c ], $v[ rand @v ] );
    }
  }

  sub password
  {
    my( $s ) = @_;
...
    }
    return @result;
  }

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