host> ulimit -a
time(seconds)        unlimited
file(blocks)         unlimited
data(kbytes)         unlimited
stack(kbytes)        8192
coredump(blocks)     unlimited
nofiles(descriptors) 3072
vmemory(kbytes)      unlimited

##</code><code>##

#!/usr/bin/perl

use FileHandle;

for ($i=0;$i<2048;$i++){
        $fd = new IO::File;
        sysopen($fd, "$i", O_WRONLY | O_CREAT) or die "stopped at: $i: $!\n";
        $fd{"$i"} = $fd;
}
for ($i=0;$i<2048;$i++){
        $fh = $fd{"$i"};
        print $fh "test\n";
}