open(IMAGE, "$_[0]") || die &Message("image not found");
	binmode IMAGE;
    	my @Image = <IMAGE>;
	binmode STDOUT;
close IMAGE;
print "Content-type: image/gif\n\n";
print @Image;