##

#!/usr/bin/perl

use CGI qw(:standard);
my $pip  = '/path/to/pip.png';
my $logf = '/path/to/referrer.log';

my $ref = param("refer");

open(LOG, ">>$logf");
print LOG $ref;
close(LOG);

open(PIP, "<$pip");
undef $/;
my $pixel = ;
close(PIP);
$/ = "\n";

print header( -type=>'image/png' );
binmode(STDOUT);
print STDOUT $pixel;
exit;