[...]
elsif($params{submit}){
 require Mail::Sendmail;
 my $sender = 'Piero <gior@imap.de>'; 
 my $empfaenger = 'Du <gior@imap>';
 my $betreff = 'Artikelliste'; 
 my $body = qq~<table><tr><td>Benutzer</td><td>$params{BENUTZER}</td></tr>
 <tr><td>Abteilung</td><td>$params{ABTEILUNG}</td></tr>
 <tr><td>Kostenstelle</td><td>$params{KST}</td></tr>
 <tr><td>Datum</td><td><$params{DATUM}</td></tr></table>
 ~;
 $body = '<table border="1"><th>Artikel</th><th>Stueck</th><th>Preis</th>';
 my @artikel = split(/;/,$params{alt});
 foreach(@artikel){  
   my ($art,$st,$eur) = split(/#/,$_); 
   $body .= '<tr><td>'.$art.'</td><td>'.$st.</td><td>'.$eur.'</td></tr>';     
 }
 $body .= '</table>';
 my %mailer_options = (
    'Content-Type' => 'text/html; charset="iso-8859-1"',
    To => $empfaenger,
    From => $sender,
    Subject => $betreff,
    Message => $body,
  );
  sendmail(%mailer_options);        
 $template->param(MESSAGE => 'E-Mail wurde abgeschickt';
}[...]