You might also want to look at Mail::Sender. Here's a simple way to use it for your example. Note that arguments are hashrefs. It can also do attachments and more complex stuff. Prerequisite is MIME::Base64.

use Mail::Sender;
my $msg = new Mail::Sender{smtp => 'smtp.mydomain.com'};

my %message = (
    to => 'joe@domain.com, larry@otherdomain.com',
    from => 'me@mydomain.com',
    subject => 'Regarding your widget purchase',
    msg => <<'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
);

# sends message, errors are returned in $status
my $status = $msg->MailMsg(\%message);
[download]