#!/usr/local/bin/perl6

my $MailAdresse="email@domain.test";
my $MailSubjekt="Testmail";
my $MailContent="BlahBlah";
my $MailCommand="echo $MailContent | mail -s '$MailSubjekt' $MailAdresse ; echo \$?";
my $MailerrorMeldung;

my $MailError=qqx[$MailCommand];

if ($MailError ~~ /^(.*)\n(\d+)/) {
 $MailerrorMeldung=$0;
 $MailError=$1;
}

if ($MailError > 0 || $MailError < 0) {
 print ("Mail Fehler: $MailerrorMeldung\n");
}