>>1
うちではこんな風にフリーメールはじいてますよ。

my($user,$sv) = split(/\@/,$FORM{mail});
if($sv ne "nifty.com"){
　　print "このメールアドレスは使用できません。";
　　exit;
}