$sender->MailFile(
   {to => $addr,
    subject => 'HP Notify Attachment',
    msg => "The attachment sent courtesy of $sname.",
    file => $fname
    });
warn "Unexpected addr: '$addr'"
unless ($addr eq 'tompkic1@universalleaf.com');
    print "Addr is $addr\n";
    warn Dumper($sender);
exit;