$a = "pass.txt"; open (WRITE, ">". $a) || die "Could not open file\n"; $passwd = crypt(test99, substr($passwd, 0, 2)); print WRITE "$passwd\n"; print "$passwd\n"; close (WRITE); open (READ, $a) || die "Could not open file to read\n"; $passwd = crypt(test99, substr($passwd, 0, 2)); $passwd_file = ; chop ($passwd_file); if ($passwd eq $passwd_file) {print "right password\n"; } else { print "$passwd and $passwd_file\n"; } close (READ);