use strict;
use warnings;

use Mail::Mailer;

my $mailer = new Mail::Mailer 'smtp', Server => 'localhost' or die "Couldn't create a mail object!\n";

my $mail_content = "Here is a first line.\nHere is a second line.\n";

my $mail_header =  {
    'Content-Type' => 'text/plain',
    To => [ 'xxxxxxxxxxxxxxxxxxxxxxx' ],
    From => 'xxxxxxxxxxxxxxxxxxxxxxx',
    Subject => 'Just some subject.',
};

$mailer->open( $mail_header );
$mailer->print($mail_content);
$mailer->close();