*CORE::GLOBAL::open = sub {
        my $result = $open->(@_);
        my $ref = ref $_[0] ? $_[0] : *{$_[0]}{GLOB};
        if ($result) {
            $fd{$ref}->{open} = join " ",@_,caller;
            $fd{$ref}->{opentime} = join ".", gettimeofday;
        }
        $result;
    };
    *CORE::GLOBAL::close = sub {
        my $result = $close->(@_);
        my $ref = ref $_[0] ? $_[0] : *{$_[0]}{GLOB};
        $fd{$ref}->{close} = join " ", caller;
        if ($result) {
            $fd{$ref}->{close} .= " (closed)";
        } else {
            $fd{$ref}->{close} .= " (close failed)";
        }
        $fd{$ref}->{closetime} = join ".", gettimeofday;
        $result;
    };

##</code><code>##

sub get_fds {
    return  {
        map { 
            my $fd = id_2obj $_; 
            $fd => { fd => $fd, %{$fd{$_}} }
        } keys %fd 
    };
}