use Email::Foo;

my $msg = Email::Foo->new();

$msg->smtp_server('smtp.mydomain.com');
$msg->set_from('me@mydomain.com');
$msg->add_recipient('joe@domain.com');
$msg->add_recipient('larry@otherdomain.com');
$msg->set_subject('Regarding your widget purchase');

$msg->set_body(<<'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() or print $msg->error();