Select Code to Download

    my %info;
    while (<>) {
...
        next unless $info -> [0] eq 'open';
        $info -> [2] += $time - $info -> [1];
    }