Help for this page

Select Code to Download


  1. or download this
    use strict;
    
  2. or download this
    $SIG{ 'TERM' } = $SIG{ 'INT' } = sub { $socket->close(); };
    $SIG{ 'PIPE' } = 'IGNORE';
    ...
        Reuse => 1
    );