my $sendmail = '/usr/bin/sendmail -t';
my $sender = 'Piero <deine_adresse@domain.tld>';
my $empfaenger = 'Du <mail@adresse.tld>';
my $betreff = 'Artikelliste';
my $body = "Artikel\tStueck\tPreis\n";

my @artikel = split(/;/,$params{alt});
foreach(@artikel){
  my ($art,$st,$eur) = split(/#/,$_);
  $body .= $art."\t".$st."\t".$eur."\n";
}

open(MAIL,"| $sendmail") or print $!;
print MAIL "To: $empfaenger\n";
print MAIL "From: $sender\n";
print MAIL "Subject: $betreff\n\n";
print MAIL $body;
close MAIL;
$template->param(MESSAGE => 'E-Mail wurde abgeschickt');