[% sitename %]::[% title %]

##

    my $emv = Email::Valid->new();
    $emv->tldcheck(1);
    $emv->mxcheck(1);
    $addr = $emv->address(-address => $addr) if $addr;


##

##

/usr/local/share/perl/5.8.8/CGI