#!/usr/bin/perl -w 
 
use CGI qw(:all); 
 
$| = 1; 
 
print header( -type => 'image/jpeg' ); 
 
open ( FILE , "files/01.jpg" ) or die "$!"; 
 
binmode STDOUT; 
binmode FILE; 
print <FILE>; 
close(FILE); 
 
exit;