Help for this page

Select Code to Download


  1. or download this
    $server->recv($data, 1024);
print "received: $data";
  2. or download this
    #!/usr/bin/perl
use IO::Socket;
...
print "Terminating Server\n";
close $main_sock;
getc();
  3. or download this
    #!/usr/bin/perl -w
use strict;
...
    }
}