Help for this page

Select Code to Download


  1. or download this
    $SIG{CHLD} = sub {wait()};
  2. or download this
        } else {
        $line = <STDIN>;
        print $new_sock "$line";
    }
  3. or download this
    chomp($buf);
exit(0) if ($buf eq 'q');