To make my code easier to read, I indent it by four spaces when I quote it. (That way, it doesn't get lost in the surrounding flow of text.) As a result, you'll need to unindent it (or at least the __DATA__ portion) before running it.

Try processing the script through this one liner to remove the leading four spaces:

    perl -i.bak -pe's/^    //' the-script.pl  # unindent the-script.pl
[download]

That ought to do it.

Cheers,
Tom