I actually get "0". But that's confusing. I changed the last line to print scalar @writables, $/;, and got "1" as my output. Are you sure that your open succeeded? Try changing the open line to open $file, ">", "somefile" or die "Can't open somefile for write: $!" and see if that tells you anything.