#!C:\Perl\bin\perl.exe
use strict;
print "Content-Type: image/jpeg\n\n";
local $/ = undef;
open File, 'C:\Temp\temp.jpg';
binmode File;
my $content = <File>;
close File;
print "Conetent of File : $content";