$_=split /&/,$ENV{"QUERY_STRING"};
...
...
...
if ($_==4){print "<p>";$pong=`./.blah.pl`;print $pong;}