open (GIF, "/path/to/gif/") || die "$!\n";
my ($image, $buff);
while (read GIF, $buff, 1024) {

    $image.=$buff;

}
close GIF;
print "Content-type: image/gif\n\n";
print $image;