##郵便番号チェック
if ($FORM{'ZIP'} eq ""){ $err_msg .= "郵便番号<BR>" }

##都道府県チェック
if ($FORM{'PREFECT'} eq ""){ $err_msg .= "都道府県<BR>" }

##アドレスチェック
if ($FORM{'ADDR1'} eq ""){ $err_msg .= "住所<BR>" }

1;