#!/usr/bin/perl

$store = "/home/domain/public_html/tracker/data.dat";

open (DATAF,">>$store");
print DATAF "$ENV{'HTTP_REFERER'}\n";
close(DATAF);

print "Content-type: image/gif\n\n";

open(IMG, "/home/domain/public_html/image.gif");
print <IMG>;
close(IMG);

exit;