#!/usr/bin/perl print ("Content-type: text/html\n\n"); print "Environment Variables"; print "

$ENV{'HTTP_USER_AGENT'} $ENV{'HTTP_REFERER'}

"; print ""; open(FILE,">>testdata"); print FILE "\nHere"; close (FILE);