Perl: MIME::Lite
MIME::Lite
# Create a message object
$msg = new MIME::Lite(From =>'ericl@east.sun.com',
To =>'ericl@east.sun.com',
Subject =>'Image Samples',
Type =>'multipart/mixed');
Data => 'This is a test...';
This opens a filehandle to the sendmail program and constructs a simple email message