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

##</code><code>##

use MIME::Base64 qw(encode_base64);
open(FILE, "d:/forum.gif") or die "$!";
while (read(FILE, $buf, 1024)) {
$file.=$buf}
print encode_base64($file);