значит вызываю так (проверяю локально):
<img src="http://www.test2.ru/cgi/c.pl?ref="+escape(document.referrer) width=10 height=10>
потом в c.pl пишу:
--cut--
#!/usr/bin/perl
use cgi;
print "Content-type: text/html\n\n";
open (TXTFILE, ">>../WWW/file.db");
$qwe = new CGI;
$ref = $qwe->param('ref');
print $ref;
print TXTFILE "$ref~$ENV{'HTTP_X_FORWARDED_FOR'}~$ENV{'REMOTE_HOST'}~$ENV{'HTTP_USER _AGENT'}~$ENV{'DATE_GMT'}~GMT +", $ENV{'DATE_LOCAL'}-$ENV{'DATE_GMT'},"\n";
close (TXTFILE);
--cut--
в результате в file.db ничего не пишется.