#*****************************************************************#
  # EMAIL:                                                          #
  # Email über MTA abschicken                                       #
  # (für den internen Gebrauch, anfällig für Spammer und Hacker)    #
  #*****************************************************************#
  
  use includedatei;
  
  Variablenliste

  $mail{'MAILPROG'} = "/usr/lib/sendmail -i -t";
  $mail{'TO'}       = "info\@msngoogle.com";
  $mail{'FROM'}     = "test\@msngoogle.com";
  $mail{'SUBJECT'}  = "Überschrift";
  $mail{'BODY'}     = "sadlkjf aseldjf akldkj";

  includedatei->schicke_mail(%mail);

  
  #*****************************************************************#
  # Subroutinen                                                     #
  #*****************************************************************#  
  

  sub schicke_mail
  {
    ($self, %mail) = @_;

    open(MAIL,"|".$mail{'MAILPROG'});
    print MAIL "To: ".$mail{'TO'}."\n";
    print MAIL "From: ".$mail{'FROM'}."\n";
    print MAIL "Subject: ".$mail{'SUBJECT'}."\n\n";
    print MAIL $mail{'BODY'}."\n";
    close (MAIL);
  }
  
  
  
  
  #*****************************************************************#
  # EMAIL:                                                          #
  # Email mit Sendmailmodul und Socket abschicken                   #
  #*****************************************************************#
  
  use Mail::Sendmail;
  
  Variablenliste

  %mail = ( To      => 'info@msngoogle.com',
            From    => 'test@msngoogle.com',
            Subject => 'Überschrift',
            Message => 'sadlkjf aseldjf akldkj'
           );

  sendmail(%mail);