Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
#server.pl

...
    }
    return 1;
}
  2. or download this
    #!/usr/bin/perl
#client.pl

...
print $line;
}
close SOCKET or die "close: $!";