jrojas:jrsWIWyBMGLdM
test:teH0wLIpW0gyQ
peter:pe9Wcpzwb4XmA
##</code><code>##

print ("Enter Your Current Password:");
system ("stty -echo");
$inputline3 = <STDIN>;
system ("stty echo");
chop ($inputline3);
#Encrypt the password
$salt = $userName2;
$encryptpw2 = crypt ($inputline3,$salt);
open my $fh, "<", 'passwords.txt' or die "Can't open password file: $!";
while (<$fh>) {
	chomp;
	($name,$passwd) = split(/:/);
		if ($encryptpw2 eq $passwd)
		{
		print ("\nEnter Your new password:");
		system ("stty -echo");
		$newpass = <STDIN>;
		system ("stty echo");
		chop ($newpass); 
		print ("\nPlease enter your new password in again:");
		system ("stty -echo");
		$newpass2 = <STDIN>;
		system ("stty echo");
		chop ($newpass2);
		}
		else
		{
		die ("\n\nYour Passwords Did Not Match, Please Try running the script again.  \n\n");
		}