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;