#!/usr/bin/perl
# hello.pl -- my first perl script!
print "Content-type: text/html\n\n";
#printf "Status: %s \n", $ENV{"REDIRECT_STATUS"};
#printf "Query: %s \n", $ENV{"REDIRECT_QUERY_STRING"};
#print "\n";
#foreach $key (sort keys(%ENV)) {
# print "$key = $ENV{$key}";
#}
#print "
\n";
#if (length $ENV{"REDIRECT_REMOTE_USER"}){
# print "Access Denied"
#}
print <<"EOF";
TFRG
EOF