if (!($MailFrom =~/\@*\./)) {
    $kill = 1;
    print "Invalid return address in From box.
";
}

if (!($MailTo !~/\@*\./)) {
    $kill = 1;
    print "Invalid destination address...
";
}