Have you tried the ultimate in simplicity, the complexity of your script dissuades me from trying to figure out WTF is going on. :-)?

#!/usr/bin/perl
use Mail::Sender;

my $sender = Mail::Sender->new(smtp => $mailserver,
                               from => $mailfrom);

$sender->MailFile( {to => $mailto,
                    subject => 'Daily report file',
                    file => $outfile} );
[download]