Select Code to Download

#!/usr/bin/perl

...
  vec($rin, fileno(shift), 1) = 1;
  return scalar select my $rout = $rin, my $wout = $win, my $eout = $e
+in, 0;
  }

277: child started
278: polling child
278: no input from child yet