Help for this page

Select Code to Download


  1. or download this
    select(MUX_OUTPUT); $|=1; select(STDOUT);
print MUX_OUTPUT "this is unbuffered\n";
  2. or download this
    my $mush = new IO::SOCKET::INET ("mush.example.com:8080")
   or die "Couldn't connect to MUSH: $@";

print $mush "command\n";
my $response = <$mush>;