my $templatestring = $filenamefromstring . ".html.tt";
 my %params;$params{first_name} = 'Frank';$params{last_name}  = 'Wiles';$params{amt_due}    = '24.99'; 
 my %options;$options{INCLUDE_PATH} = 'z:/salesd~1/logs/1-Track'; 

 my $msg = MIME::Lite::TT::HTML->new( From        =>  'cs2@me.com',            To          =>  'cs2@me.com', Subject     =>  'Your recent purchase', 
            Template    =>  {   text    =>  'test.txt.tt', html    =>  $templatestring ,                            },
            Charset     => 'utf8',
            TmplOptions =>  \%options, TmplParams  =>  \%params,); 

 $msg->send('smtp', 'localhost', Timeout => 60 );