#!/usr/bin/perl print "Status: 302 Moved\nLocation: $ENV{QUERY_STRING}\n\n";