#!/usr/bin/perl

open(PIC, "c.gif");

$size = -s PIC;

print "Content-length: $size\n";
print "Content-type: image/gif\n\n";

while(<PIC>) { print; }

close(PIC);