print "Content-Type:text/html\n\n";
print $q->pre("Will be tracing to $trace<BR>\n");
print ("your coming from $ENV{REMOTE_ADDR}<BR>\n");