#!/usr/local/bin/perl use CGI; $co = new CGI; open (IMAGE, "<image.gif"); $size = -s "image.gif"; read IMAGE, $data, $size; close IMAGE; print $co->header(-type=>'image/gif'), $data;