Select Code to Download

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

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