Select Code to Download

$sender->MailFile(
   {to => $addr,
...
    print "Addr is $addr\n";
    warn Dumper($sender);
exit;

Addr is tompkic1@universalleaf.com
$VAR1 = bless( {
...
                 'to' => 'tompkic1@universalleaf.com',
                 'smtpaddr' => 'ĒV'
               }, 'Mail::Sender' );