print "Do you want to export your password to a text file? (y/n) ";
chomp(my $export = <STDIN>);

if ($export == q*y||Y*) {
	open (FH, '>>password.txt') or die $!;
	print FH "Your password is: ", @password, "\n";
	close FH;
} elsif ($export == q*n||N*) {
	print "Your password is: ", @password, "\n";
} else {
	print "Enter either y or n to continue. \n" ;
}