#!/usr/local/bin/perl

#open(PASSWD,"passwd.lst") || die("Can' open password file");
open(PASSWD,"passwd.lst");
$passwd=<PASSWD>;
chop($passwd);
close(PASSWD);

print("Enter the password for this program: ");
system("stty -echo");
$mypasswd=<STDIN>;
system("stty echo");
chop($mypasswd);
if(crypt($mypasswd,substr($passwd,0,2)) eq $passwd) {
        print("Correct! Carry on!\n");
}
else {        die("Incorrect password: goodbye!\n"); }