Select Code to Download

use Mail::Sender;
 $sender = new Mail::Sender
  {smtp => 'xxx.xxx.xxx.xxx', from => 'itsme@from.com'};
...
  msg => "Hello friend.",
  file => './path/to/file',
  });

use Mail::Sender;
 $sender = new Mail::Sender;
if ($sender->MailMsg({
...
  die "$Mail::Sender::Error\n";
 }
 print "Mail sent OK."