use strict;
use warnings;

my $nachricht = qq~
Hallo,

das E-Mailen mit Perl ist eigentlich ganz einfach.

~;

SendMail('webmaster@netzmafia.de', 
         'plate@netzmafia.de', 
         'Ein kleiner Test', 
         $nachricht);


##############################
# Send  routine
##############################
sub SendMail # ($From, $To, $Subject, $Message)
  {
  # The path to the mail-program on your system.
  my $SENDMAIL = '/usr/sbin/sendmail -it';
  
  # Parameter übernehmen
  my ($Mailfrom, $Mailto, $Subject, $Message) = @_;
  
  open MAIL, "| $SENDMAIL" || die "Cannot open $SENDMAIL";
  print MAIL "To: $Mailto\n";
  print MAIL "From: $Mailfrom\n";
  print MAIL "Subject: $Subject\n";
  print MAIL "MIME-Version: 1.0\n";
  print MAIL "Content-Type: text/plain; charset=\"iso-8859-1\"\n";
  print MAIL "Content-Transfer-Encoding: 8bit\n";
  print MAIL "\n";
  print MAIL "$Message\n";
  close MAIL;
  }