use strict;
use warnings;
use Net::SMTP;

my $mailServer = "mailHost";
my $absender = "test_\@test.de";
my $empfaenger = "versuch\@versuch.de";
my $betreff = "Betreff";
my $nachricht = "Nachricht";
 
my $smtp = Net::SMTP->new('$mailhost');
$smtp->mail("$absender");
$smtp->to($empfaenger);
$smtp->data();
$smtp->datasend("From: $absender \n");
$smtp->datasend("To: $empfaenger \n");
$smtp->datasend("\n");
$smtp->datasend($nachricht);
$smtp->dataend();
$smtp->quit;