For anyone too lazy to view source on the page, here's his original post with code tags:

#!/perl/me -w

use strict;
use FileHandle;

my $i = 0;
# Get the current Process Id
my $proc = getpgrp(0);

# Create 10 files..
while ($i < 10) {
# Get a new File Handle
my $fh = new FileHandle();

# Count the File Handle for this process...
system ("ls -l /proc/$proc/fd/ | wc -l");
# Open a new File
sysopen ($fh, "/tmp/$i", O_RDWR) or die "$!";
# Write something to the file
print $fh "stuff \n";
#increment counter, to create a newer file.
$i++;
## NO CLOSE...
}


/tmp> ./perl junk2.pl
       5
       5
       5
       5
       5
       5
       5
       5
       5
       5
[download]

I was expecting it to go UP by 1 each time in the loop, but it stayed at 5. Why?