Help for this page

Select Code to Download

Select or download this

# replaces print <CMD>;
vec( my $rin, fileno(*CMD), 1) = 1;
while (select my $rd = $rin, undef, undef, undef;) {
...
   waitpid $pid;
   exit 0;
}