$gif = "agif.gif";
$gifsize = (-s $gif);
print "Content-Length: $gifsize\n";
print "Content-type: image/gif\n\n";

open(GIFIMAGE, "$gif");
while (<GIFIMAGE>) {print; }; close(GIFIMAGE);