perl code problem

[coolzone]

we have following perl code, which worked well before we update the windows 2000, but now it does not work after updating win2000. It shows a "invalid syntax error". Any comment?
Original code is follwoing:

#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
%in=&getcgivars;
if (-d "/users/webSite/clients/$in{'UserName'}") {
print "********>window.location='http://$in{'UserName'}:$in{'Password'}\@www.blues.ca/clients/$in{'UserName'}/index.html'**********>";
}
else {
print "********>window.location='http://www.blues.ca/nouser.html'**********>";
}

 

[coolzone]

********> should be < script> or </ script>

 

[苦逼热狗]

#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
%in=&getcgivars;
if (-d "/users/webSite/clients/".$in{'UserName'}) {
print <<OUTPUT;
<********>
window.location='http://$in{'UserName'}:$in{'Password'}@www.blues.ca/clients/$in{'UserName'}/index.html';
</********>
OUTPUT
}
else {
print <<OUTPUT;
<********>
window.location='http://www.blues.ca/nouser.html';
</********>
OUTPUT
}