Test page

##

#!C:\Progra~1\Perl\bin\perl
use CGI; 
$co=new CGI;
BINMODE IMAGEHANDLE1;
open(IMAGEHANDLE1,"header(-type=>'image/jpeg'),
$data1;