my $test_mail = CGI::param('test_mail'); open(MAIL, "|/usr/lib/sendmail $test_mail");
my $test_mail = CGI::param('test_mail');
if ($test_mail !~ /^[\w\-\.]+\@[\w\-\.]+$/) { print "入力エラー\n"; exit; }
open(MAIL, "|/usr/lib/sendmail $test_mail");