#!/usr/bin/perl -w
use strict;
use MIME::Lite::HTML;

my $mail_HTML = MIME::Lite::HTML->new (
   From => 'from@abc.com',
   To => 'to@xyz.com',
   Subject => 'Html Mail'
	);

my $MIMEmail = $mail_HTML->parse('file:///c:\test.htm');
$MIMEmail->send_by_smtp('mail.abc.com');