#!/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