Help for this page

Select Code to Download

Select or download this

    my $i = 1;

...
        print "[DEBUG] '$file': close ok\n";
        $i++;
    }