################################################
## Verify an e-mail address
################################################

sub mail_verify {
    my $addr = shift;

    ## Format the address
    my ($login, $host) = $addr =~ /^(.+)\@(.+)$/;
    $login =~ s/\.//g;
    $host =~ s/[\.\-]//g;
    
    ## Make sure address is valid
    if (($login =~ /\W/) || ($host =~ /\W/)) { return 0; }
    else { return 1; }

}