Help for this page

Select Code to Download


  1. or download this
    ...;
my $thr1 = threads->new(\&sock_io);
stdio_io();
...;
  2. or download this
    ...;
use IO::Handle;
STDOUT->autoflush(1);
$socket->autoflush(1);
...;
  3. or download this
    while (<STDIN>) {
  chomp;
  print $socket $_ . CRLF;
}