Your code isn't going to compile. You have an extra } hanging out, and you have a boolean comparison in there, but nothing is using it. (thats the eq function). I didn't see any environment variable stuff in your first script, so I'm not sure where you are getting the variable from. Remember that the %ENV hash is provided to a script from the parent process, and any alterations that you make to it are local. The changes don't affect the parent, only the children.
#!/usr/local/bin/perl
use CGI qw(:standard);
@jid = param('JobID');
print "Content-type: text/html\n\n";
print "<head><title>TEST SCRIPT</title>";
print "</head><font size=2 face=arial><p>";
foreach $jid (@jid)
{
print "+$jid";
}
$ENV{'QUERY_STRING'} eq (print "+$jid");
#$ENV{'QUERY_STRING'} = print "+$jid";
} # This bracket shouldn't be here.print "<p><a href=http://www.foo.com/cgi-bin/test2.pl?$ENV{'QUERY_STRI
+NG'}>http://www.foo.com/cgi-bin/test2.pl?$ENV{'QUERY_STRING'}</a><p>"
+;
print "<p><a href=http://www.foo.com/cgi-bin/test2.pl?$ENV{'QUERY_STRI
+NG'}>http://www.foo.com/cgi-bin/test2.pl?$ENV{'QUERY_STRING'}</a>";
print "</FORM><p></center></center></td></tr></table></BODY>";
