#!/usr/bin/perl -w #print "CONTENT-TYPE:text/html\n\n \n"; #exit; my $req = $ENV{'REQUEST_URI'}; $req =~ s/auth.cgi//; $req =~ s/auth.fcgi//; print qq{LOCATION: $req\n\n};