#!/usr/bin/perl -wT
use strict;
open(IMAGE, "x.gif") || error_stuff();
print "Content-type: image/gif\n\n" . <IMAGE>;
close(IMAGE);