use MIME::Lite;

$msg = MIME::Lite->new(
        From     => 'no-reply <webmaster@domain.org>',
        Reply-To => $efrom,
        To       => 'recipient@mailserver.com',
        Subject  => $esubject,
        Data     => $emessage,
        );

$msg->send;