programming-examples/perl/SystemFunction/Test a UNIX password.pl

$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";
    }