use Mail::Sender;
 $sender = new Mail::Sender
  {smtp => 'xxx.xxx.xxx.xxx', from => 'itsme@from.com'};
 $sender->MailFile({to => 'tou@to.com',
  subject => 'Hi',
  msg => "Hello friend.",
  file => './path/to/file',
  });
##</code><code>##

use Mail::Sender;
 $sender = new Mail::Sender;
if ($sender->MailMsg({
   smtp => 'mail.yourISP.com',
   from => 'somebody@somewhere.com',
   to =>'Jenda@Krynicky.czX',
   subject => 'this is a test',
   msg => "Hi Johnie.\nHow are you?"
 }) < 0) {
  die "$Mail::Sender::Error\n";
 }
 print "Mail sent OK."