sub is_opened {
    no warnings qw(closed unopened);
    return tell $_[0] != -1;
}