$Mail::Sender::Error = '';

$smtp_server   = '192.168.2.2'; # здесь, понятное дело,
                                # будет какой-то другой IP

if( $mail_type eq 'html' ) {
  $ctype = "text/html; charset=windows-1251";
  $encoding = "7bit";
} else {
  $ctype = "text/plain; charset=windows-1251";
  $encoding = "8bit";
}

$client = "MyMailClient";
$reply_to = $from = "\"Me\" <me\@my.host>";
$to = "\"My Brother\" <bro\@his.host>";
$subj = "Wazzup, my nigger";
$text = "Dear sir...";

$sender=new Mail::Sender;
$sender->OpenMultipart({
    client    => $client
  , from      => $from
  , to        => $to
  , replyto   => $reply_to
  , subject   => $subj
  , smtp      => $smtp_server
  , ctype     => $ctype
  , encoding  => $encoding
  , multipart => 'related'
  , charset   => 'windows-1251'
});
$sender->Body;
$sender->SendEnc( $text );
$sender->Close();

if( $Mail::Sender::Error ne '' ) {
  # делай что-нибудь
}

WBR,
    A.P.