#!/usr/bin/perl
######################################################################
# mail.pl
######################################################################
# Perl Power! - Michael Schilli 1998
######################################################################

use Mail::Send;
                      
$mail=Mail::Send->new(                      # new mail object 
          Subject => "Important message!",  # subject
          To => 'user@remote.host.com',     # addressee
          Cc => 'anotheruser@site.com',     # copy to (optional)
          Bcc => 'yetanotheruse@site.com'); # blind copy to (optional)

$mail->set("From", 'me@there.com');         # sender (optional)
$mail->set("Reply-To", 'me@there.com');     # return address (optional)

$mailhandle = $mail->open("sendmail");      # start mail program
                         
print $mailhandle <<EOT;                    # create text
Here comes the
message text.
EOT
                         
$mailhandle->close();                       # close and send