Wouldn't it then suffice to check like so?

sub is_opened {
    return defined fcntl $_[0], F_GETFL, 0;
}
[download]

Makeshifts last the longest.