#!/usr/bin/perl

$IMAGEPATH = "/www/vince/balls/tracker.gif";
$TRACKPATH = "/www/vince/balls/log/index.html";

chop ( $time = `/bin/date` );

open (TRACK, ">>$TRACKPATH");
print TRACK "$time<b>--</b>";
print TRACK "$ENV{REMOTE_HOST}<b>--</b>";
print TRACK "$ENV{REMOTE_ADDR}<b>--</b>";
print TRACK "$ENV{REMOTE_USER}";
print TRACK "<br>\n";
close (TRACK);

print "Content-type: image/gif\n\n";
open (GIF, $IMAGEPATH);
print <GIF>;
close (GIF);