#!/usr/bin/perl -w use Net::SMTP; $from = 'postmaster@ihredomain.de'; $to = 'Administrator@ihredomain.de'; $cc = 'mantke@ihredomain.de'; $smtp = Net::SMTP->new('name oder ip-adresse ihres Mailservers'); $smtp->mail($from); $smtp->to($to); $smtp->cc($cc); $smtp->data(); $smtp->datasend("To: <$to>\n"); $smtp->datasend("Cc: <$cc>\n"); $smtp->datasend("From: <$from>\n"); $smtp->datasend("Subject: Test Email mit langer Message.ID\n"); $smtp->datasend("Message-ID: \n"); $smtp->datasend("\n"); $smtp->datasend("Zeile1 des Body dieser Testmail\n"); $smtp->datasend("Zeile2 des Body dieser Testmail\n"); $smtp->dataend(); $smtp->quit;