Using plain open, produces the same effect. That is no, close, but still the file handle count remains the same. From the literature, I gather that only IO::File does auto close.
I am confused.....Please help....
use strict;
my $i = 0;
# Get the current Process Id
my $proc = getpgrp(0);
# Create 10 files..
while ($i < 10) {
$i++;
# Get a new File Handle
# Count the File Handle for this process...
system ("ls -l /proc/$proc/fd/ | wc -l");
# Open a new File
open (FH, "+>", "/tmp/$i") or die "$!";
# Write something to the file
print FH "stuff \n";
#increment counter, to create a newer file.
## NO CLOSE...
#print "COunter $i\n";
}
1;