What OS/perl are you on? This works for me on linux and 5.8.7.

Updates:

1. make sure your IO isn't failing. Add the usual or die guards.
2. scalar @writables is a more natural way in Perl to look at the size of an array.