#!/C:/perl/bin/perl

use strict;
use warnings;

use MIME::Lite;
use Data::Dumper;

my $msg = MIME::Lite->new(
              Type     =>'image/gif',
              Encoding =>'base64',
              Path     =>'test.gif'
              );
my $str = $msg->as_string;
print $str;