if (crypt($password, $storedpwd) ne $storedpwd) {
  die "Sorry...\n";
} else {
  print "ok\n";
}