#!/usr/bin/perl $pwd = `pwd`; chop($pwd); $logfile = $pwd . "/ats.log"; print "\"$logfile\"\n"; open (OUTPUT,">>$logfile"); print OUTPUT "Remote Host: $ENV{'REMOTE_HOST'}\n"; print OUTPUT "Calling Document: \"$ENV{'HTTP_REFERER'}\"\n"; print OUTPUT "Browser Type: $ENV{'HTTP_USER_AGENT'}\n\n"; close (OUTPUT);