#!C:\Progra~1\Perl\bin\perl
use CGI;
my $co = CGI->new();

open IMG, 'picture.jpg' or die $!;

binmode IMG;
binmode STDOUT;

$/ = \ 256; #or bigger as you like it
print $co->header('image/jpeg');

print while <IMG>;

close IMG;