##氏名の姓チェック
if ($FORM{'LNAME'} eq ""){ $err_msg .= "氏名-姓<BR>" }

##氏名の名チェック
if ($FORM{'FNAME'} eq ""){ $err_msg .= "氏名-名<BR>" }

1;