my $newscript = "http://somewhereelse.com/cgi-bin/somescript.pl?";

my $url = $q->self_url;

$url =~s/^.*?\?//;      # Remove url portion

$newscript.=$url;