In fact, your code did not work on my machine either : I ran it under Perl builder, which provided me no error except that it did not terminate it. Running it on the comment line was more interesting and gave the same result as your.

Interesting to see a different behaviour when using Perl Builder or not.

So I've got no figure for you ;)