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

$smtp_server   = '192.168.2.2';

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" <[email protected]>";

$to = ""My Brother" <[email protected]>";

$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 '' ) {

  # делай что-нибудь

}