Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
# server
...
    my $fh = $self->{PIPE};
    return scalar(<$fh>);
}
  2. or download this
    #!/usr/bin/perl -w
# client
...
while (<$sock>) {
    print "Got: >$_<\n";
}