Help for this page
#!/usr/bin/perl use CGI; ... print $q->redirect( -uri => $uri->as_string ); exit;