use Mime::Lite;

MIME::Lite->send ('smtp', 'smtp.mydomain.com');

my $msg = MIME::Lite->new (
    From     => 'me@mydomain.com',
    Subject  => 'Regarding your widget purchase',
    );
$msg->add (To => 'joe@domain.com');
$msg->add (To => 'larry@otherdomain.com');
$msg->Add (Data => <<'END_MSG');
Hello, Good Sir!
Would you like a free cookie with your orange juice?
My hovercraft is full of eels!
Please remember to wear a sweater when crossing the street.

 Regards, Mortimer J. Paulinskil
END_MSG

  $msg->send ();