🚀 go-pugleaf

witam
mam w perlu taki fragment kodu:

use Mail::Sender;
my $sender = new Mail::Sender;
my @odbiorcy= qw(marcin@gmail.com);


my $mailTresc = "";

foreach my $odb (@odbiorcy) {
if ($sender->MailMsg({
    smtp => 'smtp.gmail.com',
    from => 'albundy@gmail.com',
    to =>$odb,
    subject => "Status urzadzen $czas",
    msg => $mailTresc,
    auth => 'LOGIN',
    authid => 'albundy@gmail.com',
    authpwd => 'albundypassword',
  }) < 0) {
   die "$Mail::Sender::Error\n";
  }
  print "Mail to $odb sent OK.\n"
}

w zaleznosci od statusu urzadzen ilosc znakow w zmiennej $mailTresc jest 
rozna.
mail jest wysylany jak jest nie wiele znakow, ale jesli pojawi sie wieksza 
ilosc tekstu to niestety mail nie zostaje wyslany :( mam time outa

czy to jest moze wina modulu Mail::Sender ??
ewentualnie jak zaradzic temu "zjawisku"?