#!/usr/bin/perl --

open (IMAGE, '<', '/path/to/image')
    or print "500 Server Error\n\n" and exit;
print "Content-type: image/gif\n\n", <IMAGE>;
close (IMAGE);