print "Would You like to pick a password Y/N? \n";

my $answer= <>;

if ($answer eq 'Y'){
print "What would you want your password to be? \n";
my $password = <>;
}

elsif ($answer eq 'N'){

my $password = rand();

print $password;
}