#!/usr/local/bin/perl
open (PASSWD, "/u/jqpublic/passwd") || die ("Can't open password file");
$passwd = ;
chop ($passwd);
close (PASSWD);
$mypasswd = "asdf";
if (crypt ($mypasswd, substr($passwd, 0, 2)) eq $passwd) {
print ("Correct! Carry on!\n");
} else {
die ("Incorrect password: goodbye!\n");
}