Select Code to Download

open my $fh, '<', '/dev/zero' or die "$!";

pipe my ($header_in, $header_out);
pipe my ($body_in, $body_out);

use Fatal qw( close );

close STDIN;
close STDOUT;
pipe my ($message_in, $message_out);

#!/usr/bin/perl
use strict;
...
header_out has descriptor 5
body_in has descriptor 6
body_out has descriptor 7

   while (1) {
      open my $fh, '<', '/dev/zero' or die "open(): $!";
...
      die "file descriptor $n not available" if fileno($fh) > $n;
      push @fakes, $fh;
   } ## end while (1)