$ perl -MFileHandle::Fmode=is_FH -MIO::All -E'say is_FH(IO::All->new("/dev/null"))'
0