sub opened($) { my $fh = shift;
    no warnings; #turn 'em off locally
    return tell($fh)==-1 ? undef : 1
}