use Net::SMTP;

my @mailreceiver = ('format_c@perl-community.de','erik@perl-community.de','gernot.havranek@bertelsmann.at');

my $smtp = Net::SMTP->new('smtp.hlf-online.de');
$smtp->mail($mailreceiver[0]);
$smtp->to($mailreceiver[0]);
$smtp->recipient(@mailreceiver[1..$#mailreceiver]);
$smtp->data();
$smtp->datasend('To: ' . join(', ',@mailreceiver) . "\n");
$smtp->datasend('From: Absender',"\n");
$smtp->datasend('Subject: Test->Ignorieren',"\n");
$smtp->datasend("\n");
$smtp->datasend("================================================================================\n");
$smtp->dataend();
$smtp->quit();