use Data::Dumper;
$sender->MailFile(
    {to => $addr,
     subject => 'HP Notify Attachment',
     msg => "The attachment sent courtesy of $sname.",
     file => $fname
     });
warn "Unexpected addr: '$addr'" 
   unless ($addr eq 'myname@somewhere.com');
warn Dump($sender);