#!/usr/bin/local/perl
use CGI;
my $cgi = new CGI;

use File::Copy;
print "Content-type: image/jpeg\n\n";
copy "fun.jpg", \*STDOUT;