#!C:\Progra~1\Perl\bin\perl
use CGI;
$co=new CGI;
$size = stat("counter.jpg")[7];
open (FILEHANDLE,"<counter.jpg");
binmode FILEHANDLE;
read FILEHANDLE,$imagedata,$size;
close FILEHANDLE;
print
$co->header(-type=>'image/jpeg'),
$imagedata;