Help for this page

Select Code to Download


  1. or download this
    use Socket;
use IO::Handle;
...
} else { die "connect failed\n" }

print $data;
  2. or download this
    use strict;
use Socket;
...
close(SOCK);

print $data;
  3. or download this
    use strict;
use IO::Socket;
...
$socket->recv($data,100);

print $data;