#!c:\perl\bin\perl.exe  
use strict;
use CGI qw(:standard);

print("Content-type:  Image/jpg\n\n");

local $/ = undef; # file slurp mode 
open(INFILE, "<C:\Apache2\computer2G0.jpg");
my $img = <INFILE>;
close(INFILE);
binmode STDOUT;
print $img;
exit;



