print $q->url(-absolute=>1, -path=>1), '?', $ENV{QUERY_STRING};