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

use Mail::Send;

$mail=Mail::Send->new(               # Neues Mail-Objekt 
   Subject => "Wichtige Nachricht!", # Betreff
   To => 'user@remote.host.com',     # Empfänger
   Cc => 'anotheruser@site.com',     # Kopie an (optional)
   Bcc => 'yetanotheruse@site.com'); # Blindkopie an (optional)

$mail->set("From", 'me@there.com');  # Absender (optional)
$mail->set("Reply-To",               # Rückadresse (optional)
           'me@there.com');

$mailhandle = $mail->open("sendmail");  # Mail-Programm starten
                         
print $mailhandle <<EOT;             # Text erstellen
Hier kommt der
Brieftext.
EOT
                         
$mailhandle->close();                # Schließen und senden