#!/opt/customer/local/perl58/bin/perl
# $Id: redirect.cgi,v 1.2 2006/04/04 09:17:30 bcowgill Exp $
# noperltidy
use strict;
use warnings;
use lib '/apps/siteperl';
use FT::Core::PERL58;
use CGI;
my $q =  new CGI;

print "Location: ". $q->param('Location') ."\r\n\r\n";
exit;