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