my $pass = <STDIN>;
my $user = <STDIN>;
my @salt = ('a'..'z', 'A'..'Z');
my $passc = crypt($pass, @salt[int(rand(@salt))] . @salt[int(rand(@salt))]);

open my $fh, '>pass.pwd' or die $!;

print $fh "$userñ$pass";
close($fh);