use MIME::Lite;
$msg = new MIME::Lite 
               Type    =>'image/gif',
               Path     =>'d:/forum.gif',
               Filename =>'forum.gif';             
$msg->print;