Hi,
I have a cgi script as well...
<code>
#!/usr/local/bin/perl
use CGI;
#----------
# Validate: Email
sub check_email
{
local($email, $optional) = @_;
if ( (length($email) == 0) && ($optional == 1) ) {
return 1;
}
elsif ( $email !~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/ && $email =~...