Just to let you know, I'm getting an error running it under v5.8.6 (Linux):

Bareword found where operator expected at (eval 8) line 1, near ")w"
        (Missing operator before w?)
[download]

Apologies if I've merely cut-and-pasted it incorrectly somehow.