# 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);