#!/usr/bin/perl -w
######################################################################
# (c) Michael Schilli 1999
######################################################################

use MIME::Lite;

$msg = MIME::Lite->new( 
    From       => 'sender@host.com',  # Absender
    'Reply-To' => 'reply@host.com',   # Return-Adresse
    To         => 'to@host.com',      # Empfänger
    Subject    => "Das Thema!",       # Betreff
    Type       => "multipart/mixed"); # Anlagen ankündigen
                           
$msg->attach(                         # Normalen Text einbinden
    Type     => 'text/plain',         # Plain Text
    Data     => 'JPG-Bild folgt nach!');  # Inhalt

$msg->attach(                         # Image einbinden
    Type     => 'image/jpg',          # JPG-Image
    Path     => 'source.jpg',         # Source-Datei
    Encoding => 'base64',             # Encoding-Schema
    Filename => 'name.jpg');          # Name nach Ankunft

$msg->attach(                         # Binary einbinden
    Type     => 'octet/stream',       # Binary-Typ
    Path     => 'data.tgz',           # Source-Datei
    Encoding => 'base64',             # Encoding-Schema
    Filename => 'data.tgz');          # Name nach Ankunft

$msg->send();                         # An Sendmail weitergeben