#!/usr/bin/perl -w
use MIME::Entity;

#######################
#
#  Define the varibles for the test
#
########################

$toAddress ='me@localhost';
$fromAddress ='me@localhost';
$Subject ="Some Random Subject";
$message = ["<B>This is a test message</B> that <i>witters</i> on about some random stuff<br>\n",
		"Why?  I dunno, i guess it just feels like doing so<br>\n",
		"Anyway it's doing no harm is it?<br>\n",
		"<a href=\"http://www.someurl.com\">Somewebsite</a>"];

$aFileName = "someimage.gif";
$aType = "image/gif";
$aEncoding = "-SUGGEST";

###############################
#
# The Donkey Work Part.....
#
################################

## Create the top-level, and set up the mail headers:
    $top = MIME::Entity->build(Type     => "text/html",
                               From     => $fromAddress,
                               To       => $toAddress,
                               Subject  => $Subject,
			       Data	=> $message);

## for plaine text e-mail change Type to "text/plain",


# Attach a Signature....
    $top->attach(Path=>"signature.txt",
    		Disposition => "inline",
		Encoding => "8bit");

# Attach the Image....
    $top->attach(Path        => $aFileName,
                 Type        => $aType,
                 Encoding    => $aEncoding,
		 Disposition => "attachment");

# Send the message
    open (MAIL,"|/usr/sbin/sendmail -t -oi");
	$top->print(\*MAIL);
    close MAIL;