Customer Support

In addition to the sample code modwest shows there are *many* perl
modules that make assembling and sending mail a snap. 

MIME::Lite is great for attachments (sending images or attached files)
and Mail::Mailer is a terrific pick for simple plain text or HTML mail. 
Here's a sample:


#!/usr/bin/perl
use warnings;
use strict;
#----------------------------------------------
use Mail::Mailer qw(sendmail);
#----------------------------------------------
my $mail = Mail::Mailer->new('sendmail')
    or die "Couldn't create a mail object!\n";

my $myself = $ENV{USER} . '@' . $ENV{HOST};

my $mail_headers =  {
    'Content-Type' => 'text/plain',
    To => [ 'tuna@fish.net', $myself ],
    From => $ENV{USER} . '@sedition.com',
    Subject => "Testing, 1, 2, 5 -- 3, Sire!",
};

$mail->open( $mail_headers );

$mail->print("This message has no body!\n",
             "Except this of course...");

$mail->close();

exit 0;
#----------------------------------------------