"; print "IP = $ip

"; print "UA = $ua

"; print "URI = $uri

"; print "Hello I have detected that you have come from $ref
"; print "Because I know where you came from I will send you back to where you came from...
"; $file = fopen ("_data.txt", "a"); fwrite($file, "$ip "); fwrite($file, " Refer: $ref\n"); fwrite($file, "UserAgent: $ua\n"); fwrite($file, "ReqFile: $uri\n

"); fclose ($file); ?>