$ perl -MCGI -le"print CGI->header(qw! -type image/jpeg -nph 1!)
HTTP/1.0 200 OK
Server: cmdline
Date: Sun, 08 Mar 2009 08:14:05 GMT
Content-Type: image/jpeg