sub good{#99 my @info = @_;#100 my $title = "Registration successful!";#101 my $body = qq(#102 ##

##

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