#### use CGI; my $cgi = CGI->new; my $param = { map { $_ => $cgi->param($_) } $cgi->param }; print "Location: http://your.domain.com/yourpage.html#".$param->{ship_name};