Where are you suggesting those closes be put? perhaps as a diff/patch against the code listing or some line numbers would clarify your intent...
It works as expected for me, when run as CGI in my userdir on Apache2, perhaps you're having issues with mod_perl or some other configuration issues?
Running:
@_=qw; ask f00li5h to appear and remain for a moment of pretend better than a lifetime;;s;;@_[map hex,split'',B204316D8C2A4516DE];;y/05/os/&print;
| [reply] [d/l] [select] |