#*****************************************************************#
  # EMAIL:                                                          #
  # Email mit Attachment (Bild)                                     #
  #*****************************************************************#
  
  # Module MIME und Net einbinden

  use MIME::Lite;
  use Net::SMTP;

  use includedatei;

  Variablenliste

  $mail{'IMAGE'}    = "bild.jpg";
  $mail{'PFAD'}     = "/home/www/html/image/";
  $mail{'HOST'}     = "goomsn.com";

  $mail{'MAILPROG'} = "/usr/lib/sendmail -i -t";
  $mail{'TO'}       = "info\@goomsn.com";
  $mail{'FROM'}     = "test\@goomsn.com";
  $mail{'SUBJECT'}  = "Überschrift";
  $mail{'BODY'}     = "blablabla\n\nblabla";

  includedatei->sendmail(%mail);

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

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

    $MIME = 'image/jpeg';

    # Multipart-Container erzeugen
    $msg = MIME::Lite->new (
      From => $mail{'FROM'},
      To => $mail{'TO'},
      Subject => $mail{'SUBJECT'},
      Type =>'multipart/mixed'
    ) or die "Fehler beim Erstellen des Containers: $!\n";

    # Textbereich
    $msg->attach (
      Type => 'TEXT',
      Data => $mail{'BODY'}
    ) or die "Fehler beim Einfügen des Textbereiches: $!\n";

    # Anhang
    if($mail{'IMAGE'} ne '') {
      $msg->attach (
        Type => $MIME,
        Path => $mail{'PFAD'}$mail{'IMAGE'},
        Filename => $mail{'IMAGE'},
        Disposition => 'attachment'
      ) or die "Fehler beim Einfügen des Anhangs $!\n";
    }

    # Absenden
    MIME::Lite->send('smtp', $mail{'HOST'}, Timeout=>60);
    $msg->send;
  }