I am a firm believer in sharing information.
here is a working program i just wrote and tested.
it my not be clenched-buttock tight code.
but, blast it, it works!!!
Lou
#!/usr/bin/perl -w
use strict;
use diagnostics;
print "Content-type: text/html\n\n";
##############
##declared variables
##############
my $webpage;
##############
##Do not change the above code!!!
##Counter 1.0
##############
##############
##change to your webpage below to store information on visitors
##############
$webpage = "/home/yourwebpage/cgi-bin/data/refs.htm";
##############
##print to webpage
##############
print "We are glad you came from<BR>";
print "$ENV{HTTP_REFERER}<BR>";
##############
##open file, print info, close file
##############
open(A,">>$webpage");
print A "$ENV{HTTP_REFERER}\n";
close (A);
exit;
