Re^2: How do I tell if a handle is open for writing?

[sauoq]

That isn't what he is asking for...

$ touch x; perl -le 'open X,"x"; print -w X; print X "x" or die $!'
1
Bad file descriptor at -e line 1.