Select Code to Download

#!/usr/bin/perl -w
use strict;
use Socket;
...
        print "no problem with $count!\n";
}
exit;

opened 1000 files
no problem with 1000!
opened 2000 files
no problem with 2000!
opened 4000 files
>&= fd - Illegal seek at lotsoffiles.pl line 23.

write(1, "opened 2000 files\n", 18opened 2000 files
dup2(2004, 1)                           = 1
fcntl(1, F_SETFD, 0)                    = 0
...
ioctl(1, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff2b62da20) = -1 EINVAL (I
+nvalid argument)
lseek(1, 0, SEEK_CUR)                   = -1 ESPIPE (Illegal seek)
write(2, ">&= fileno(fd) - Illegal seek at"..., 57>&= fileno(fd) - Ill
+egal seek at lotsoffiles.pl line 23.