#!/usr/bin/perl

use strict; 
use warnings; 
use MIME::Lite::TT::HTML; 

my %params;
my %options; 
$options{INCLUDE_PATH} = 'c:/Documents and Settings/Uriel/My Documents/Sandbox/perl/'; 

my $msg = MIME::Lite::TT::HTML->new( 
            From        =>  'admin@example.com',
            To          =>  'test@yahoo.com', 
            Subject     =>  'Hello world', 
            Template    =>  {
                                text    =>  'test.txt',
                                html    =>  'test.html',
                            },
            TmplOptions =>  \%options, 
            TmplParams  =>  \%params, 
); 
 
$msg->send('smtp', 'smtp.mail.yahoo.com', Timeout => 60 );