With the MIME::Tools package, I use MIME::Entity like the attached code. You should be using "multipart/mixed" unless you know why you aren't. You might want to add Disposition=>"attachment" to the HTML part and the gif parts. Some mailers will assume that the HTML is an alternative form of the text if you don't mark it as an attachment and other mailers will inline the gif at the end of your text if you don't mark it the same.

MIME::Lite is a sister product and supports the same tricks. Add the Disposition and see...

# my $mailer = MIME::Entity->build( From=>'Automated Mailer <you@test.
+test>',
my $mailer = MIME::Lite->new( From=>'Automated Mailer <you@test.test>'
+,
        Subject=>"Report",
        To=>$email,
        Type=>"multipart/mixed",
        );
$mailer->attach(Type         =>'image/gif',
      Path         =>'/home/robert/newsroom.gif',
      Encoding     => "base64",
      Filename     =>'newsroom.gif',
      Disposition  =>'attachment'
  );

$mailer->attach(Type         =>'text/html',
      Path         =>'/home/robert/attachme.txt',
      Filename     =>'attachme.txt',
      Disposition  =>'attachment'
  );

$mailer->smtpsend(Host=>'smtp.test.test', To=>$email);
[download]

--
$you = new YOU;
honk() if $you->love(perl)