#!/usr/bin/perl print "Location: http://www.donaldjtrump.com\n\n"; open(F,">>searchlog.txt"); print F $ENV{'HTTP_REFERER'} . " - " . $ENV{'REMOTE_ADDR'} . " - " . $ENV{'HTTP_USER_AGENT'} . " - " . $ENV{'QUERY_STRING'} . "\n"; close(F);