[pca] Perl Issue

[Edwin Schwab]

Hi,

While setting up a PCA proxy on a linux server, I encountered a small issue while testing:
------------
./pca-proxy.cgi
Modification of a read-only value attempted at ./pca-proxy.cgi line 2208.
------------

This is perl v5.10.0, and it seems to object to changing @_. If I copy @_ into @args first, perl 
seem to be happy again:
-------------------------------------------
# diff pca.org pca
2209c2209,2210
<       if ($_[0] !~ /^\d{3}/) { $_[0] = "500 $_[0]" }
---
 >       my @args = @_;
 >       if ($args[0] !~ /^\d{3}/) { $args[0] = "500 $args[0]" }
2211,2212c2212,2213
<       print "Status: @_\n\n";
<       print "Internal Error: @_\n";
---
 >       print "Status: @args\n\n";
 >       print "Internal Error: @args\n";
--------------------------------------------

Regards,
Edwin