CGI Perl


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