$ENV{QUERY_STRING} = "foo=bar";

# dann aufruf per system oder IPC::Run