#!/usr/bin/perl -w

use strict;
use MIME::Lite;

my $msg = MIME::Lite->new(
             From     =>'keiusui@qmailquestions.com',
             To       =>'keiusui@qmailquestions.com', 
             Subject  =>'Helloooooo, nurse!',
             Data     =>"How's it goin', eh?"
             );

$msg->send || die "It did NOT work!";