use Mail::Sender;
 
my $recipients = 'some@one.com';
 my $sender = new Mail::Sender {smtp => 'smtp.com'};
 if ($sender->OpenMultipart({from => 'some@one.com', to => $recipients,
 			cc =>'some@one.com',
                       subject => "test", subtype => 'related',
                       boundary => 'boundary-test-1',
                       type => 'multipart/related'}) > 0) {
  $sender->Attach(
         {description => 'html body',
         ctype => 'text/html; charset=us-ascii',
         encoding => '7bit',
         disposition => 'NONE',
         file => "finalhtml.html"
   });
  $sender->Attach(
   {description => 'ed\'s gif',
    ctype => 'application/vnd.ms-excel',
    encoding => 'base64',
    disposition => "inline; ",
    file => "some.xls"
   });
$sender->Close(1) or die "Close failed!$Mail::Sender::Error\n";
 } else {
  die "Cannot send mail: $Mail::Sender::Error\n";
 }