Just an update for future SoPW: turns out this is an ActivePerl bug. The code above should work fine on most systems.

-Peter