Select Code to Download

    *CORE::GLOBAL::open = sub {
        my $result = $open->(@_);
...
        $fd{$ref}->{closetime} = join ".", gettimeofday;
        $result;
    };

sub get_fds {
    return  {
...
        } keys %fd 
    };
}