#! /usr/local/bin/perl

$path = $ENV{PATH_INFO};        # get extra path
$path =~ s/^\///;               # drop leading /
$path =~ s/%3F/\?/g;            # convert %3F to ?
print "Location: $path\n\n";

exit 0;