#!/usr/bin/perl

use strict;
use CGI::Carp qw(fatalsToBrowser);
use Data::Dumper;

use MIME::Lite;

my $msg = MIME::Lite->new(
                           From => 'foo@bar.com',
                           To => 'bar@foo.com',
                           Subject => "Test",
                           Type =>'multipart/mixed'
                           );
$msg->attach(  Type => 'text/html',
               Data => '<h1><i>This is a test</i></h1>'
            );

 $msg->attach(Type        =>'image/gif',
              Path        =>'/usr/home/account/files/test.gif',
              Disposition => 'attachment'
              );
$msg->send();