I don't know about its dependencies, but Mime::Lite otherwise fits the bill pretty well:

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 ();
[download]

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]

You can always do the stupid and dangerous .. open a pipe to the sendmail bin path and ..

 # UNTESTED
my $sendmail_bin = '/bin/sendmail'; # maybe use File::Which::which(), 
+might not work on a cgi for example
open(OUT, "|$sendmail_bin -t") or die("cant open pipe to sendmail [$se
+ndmail_bin]");
my ($from, $recipient, $subject, $reply)= 
  qw(me@this.net user@destination.ext bogus no@reply.net);

# print header and content
print OUT <<EOM
From : $from
To: $recipient
Subject: $subject
Reply-To: $reply
[This message is junk.]

Hi hi.. whatzzzzzuuuupppp... 
EOM
;
close(OUT);
[download]

use Mail::Mailer;       # Access sendmail/whatever


sub send_email
{    my (
        $error_msg,         # input error msg
        $hostname,          # name of this box for sending
        $prog_full_name,    # prog path + name
        $contact_email,     # contact email address
        $mailer,            # mailer object
        $sender,            # sender of email as specified in cfg file
        $subject,           # subject line in email
        $body_text          # actual email msg text
        );


    # Assign input params
    $error_msg = $_[0];

    # Get hostname anyway we can using Sys::Hostname;
    # tries syscall(SYS_gethostname), `hostname`, `uname -n`
    $hostname = Sys::Hostname::hostname();

    # Get program full path name
    $prog_full_name = cwd()."/${0}";

    # Set the fields required by Mailer...
    $contact_email = $cfg::params{'ADMIN_EMAIL'};
    $sender = "$prog_full_name";
    $subject = "$prog_full_name: Error trapped";
    $body_text = "This is an automated message:\n\n".
                 "$error_msg\n\n".
                 "Regards,\n$prog_full_name at $hostname\n\n";

    # ... and send it
    $mailer = Mail::Mailer->new();
    $mailer->open({ From    => $sender,
                    To      => $contact_email,
                    Subject => $subject,
                    }) or print "Can't open Mailer for send: $!\n";
    print $mailer $body_text;
    close($mailer) or print "Can't close Mailer: $!\n";
}

called as
send_email("<your msg here>");
You can optionally specify the mail prog to be used (see the CPAN page
+), or let it find one.
[download]