#!/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";
}