use Mail::Mailer;

my $server = 'smtp.strato.de';
my $body = <<MAILTEXT;
Hallo,

das ist
ein
Mail

Oha!
MAILTEXT

my $mailer = Mail::Mailer->new('smtp', Server => $server);
$mailer->open({
  To => 'toadresse@example.org',
  From => 'blubber123@web.deh',
  Subject => 'Senden ueber Mail::Mailer mit SMTP'
});
print $mailer $body;
$mailer->close or die "couldn't send message: $!\n";