I'm sorry to say this, but you were duped, sir. This is not Perl code. I'm not yet sure what it is, but it could be homework.