#!/usr/bin/perl -w
#
# mimelite.pl    
# Demo program to show the usage of the Mime::Lite module.  Example shows text/html, but this can be any mime type.
#
# Usage: mimelite.pl
#
use strict;
use MIME::Lite;

# SendTo email id
my $email = 'rudi.boekamp@tasvorite.com';

# create a new MIME Lite based email
my $msg = MIME::Lite->new
(
 Subject => "HTML email test",
 From    => 'joe@hotmail.com',
 To      => $email,
 Type    => 'text/html',
 Data    => '<H1>Hello</H1><br>This is a test email.
 );

# Send the message
 $msg->send();