Select Code to Download

#!/usr/bin/perl

...
    push @a,openHandle();
    print "Handles in use: ",0+@a,"\n";
}

// previous lines removed
Handles in use: 1015
...
Handles in use: 1020
Handles in use: 1021
Could not opendir: Too many open files at handles.pl line 8.

// previous lines removed
Handles in use: 27781
...
Terminating on signal SIGINT(2)

H:\tmp>