#! /usr/bin/perl

# 暗号化済みパスワード（正しいパスワード）
$savedpass = "fx7zqpY1t/yBM"; 

# ユーザが入力したパスワード
$userpass  = "1234"; 

# ユーザが入力した文字を暗号化して、正しいパスワードと比較
if( crypt( $userpass, $savedpass ) eq $savedpass ) {
   print "パスワードは一致しました。\n";
}
else {
   print "パスワードが違います。\n";
}

exit;