use CGI;
use URI;
$ENV{'QUERY_STRING'} = URI->new($ENV{'HTTP_REFERER'})->query;
my $q = CGI->new;
...