How can I check if a filehandle is open in Perl? [duplicate]

Please see the answer regarding openhandle() from Scalar::Util. The answer I originally wrote here was once the best we could do, but it’s now badly outdated.