#!/usr/bin/perl use MIME::Lite; #Address removed to protect the innocent my $msg = MIME::Lite->new( To =>'someone@somewhere.com', Subject => 'TEST', Type => 'multipart/related' ); $msg->attach( Type=>'text/html', Data=>qq{The image:

} ); $msg->attach( Type=>'image/gif', Id=>'calbanner2.gif', Path=>'calbanner2.gif', Filename=>'calbanner2.gif' ); $msg->send(); print "Done\n"; exit;