Network Perl

  1. Home
  2. Perl
  3. Network
  4. Read from server
use Socket;
socket(SERVER, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
$addr = sockaddr_in(2336, inet_aton('server.com'));
connect(SERVER, $addr)
    or die "Could not connect.\n";
$line = ;
print $line;
close(SERVER);