Tracking Pixel CGI-BIN code

#!/usr/bin/perl

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=gmtime(time);

local ($buffer, @pairs, @pairArray, $ii, $pushString, $pair, $name, $value, %FORM);
# Read in text
$ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/;
if ($ENV{'REQUEST_METHOD'} eq "GET")
{
$buffer = $ENV{'QUERY_STRING'};
}

$log = "log9.txt";
if ( (-e "$log") && (-r "$log") && (-w "$log") )
{
# Add a new line to the log9.txt file
open(COUNT, ">>$log") || die "Problem: $!";
printf COUNT "%4d-%02d-%02d-%02d:%02d:%02d,",$year+1900,$mon+1,$mday,$hour,$min,$sec;
print COUNT "$buffer\n";
close(COUNT);
}

open IMAGE, "1by1.JPG";
#assume is a gif...
my ($image, $buff);
while(read IMAGE, $buff, 1024) {
$image .= $buff;
}
close IMAGE;
print "Content-type: image/jpeg\n\n";
print $image;

1;