if($EmailAddress) { eval { if (my $addr = Email::Valid->address( -address => $EmailAddress, function start() { document.forms[0].elements[0].focus(); } "; generate_form(); my $EmailAddress = $cgi->param('EmailAddress'); if($EmailAddress) { eval { if (my $addr = Email::Valid->address( -address => $EmailAddress, -mxcheck => 1, -fudge => 1 )) { print "$addr OK\n"; } else { print "$addr failed $Email::Valid::Details check.\n"; } }; warn "an error was encountered: $@" if $@; } print end_html();