#!/usr/bin/perl

use MIME::Lite;
use strict;
use warnings;

my $msg = MIME::Lite->new(
        From     => 'someone@somewhere',
        To       => 'someone@nowhere',
        Subject  => 'It is a test',
        Data     => 'I prefere this module.'
    );

$msg->send('smtp','host', Debug => 1);