Perl to PHP conversion?

[totalservers]

I have the following code and would like to some help in converting it into PHP - any help will be much appreciated:

[FILE ATTACHED]

 

[Anthony]

I tried d/l-ing it, but I couldn't open it. That's odd.