use constant MAX_DESCRIPTORS => 255;
for my $fd_no ( 0 .. MAX_DESCRIPTORS() ) {
  open( my $fh, ">>&=", $fd_no ) or warn "Can't dup FD $fd_no: $!\n";
  close( $fh );
}