require MIME::Lite;

$msg= MIME::Lite->new(
  From    => $from_addr,
  To      => $to_addr,
  Bcc     => $bcc_list,
  Subject => $subject,
  Type    => 'multipart/alternative',
);
$msg->attach(
  Type => 'text/plain',
  Data => $some_plain_text,
);
$msg->attach(
  Type => 'text/html',
  Data => $some_html,
);

##</code><code>##

send_by_smtp ARGS...
    Instance method.  Send message via SMTP, using Net::SMTP.  The optional ARGS
    are sent into Net::SMTP::new(): usually, these are

       MAILHOST, OPTION=>VALUE, ...

    Note that the list of recipients is taken from the "To", "Cc" and "Bcc"
    fields.

    Returns true on success, false or exception on error.

##</code><code>##

# change the delivery method and then call vanilla instance method send()
MIME::Lite->send(’smtp’, "smtp.myisp.net", Timeout=>60);
# ...
$msg->send();

##</code><code>##

$msg->send(’smtp’, "smtp.myisp.net");