#!/usr/bin/perl -Tw
use CGI;
use strict;
my $q = new CGI;
my ($url) = $q->param('go');  

if ($url)
 {
 $url =~ tr/[^\w\/\.\-\?\=\&\@\%]//;	# clean up the form input, only these characters are allowed!
 print $q->redirect("$url");
 }