$pass = "password";
($encstring) = (getpwnam("stephen"))[1];
$salt = substr($encstring,0,2);
$encpass = substr($encstring,2);
$newencpass = crypt($pass,$salt);
if($encstring eq $newencpass)
{
print "Correct\n";
}
else
{
print "Incorrect\n";
}