Help for this page

Select Code to Download


  1. or download this
    #!/urs/bin/perl -w

...
    $sel = IO::Select->new();
    $sel->add($sock);
}
  2. or download this
    #!/usr/bin/perl -w

...

#if the is $something_to_say  
syswrite $new_socket, "$something_to_say\n";
  3. or download this
    END{
    syswrite $new_socket, "EOF\n";
}