#!/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);