#assuming $image contains the gif and $q is a CGI object

use URI;
my $u = URI->new("data:");
$u->media_type("image/gif");
$u->data($image);
print $q->img(-src => "$u");