Network Perl

  1. Home
  2. Perl
  3. Network
  4. TCP client using Socket module
#!/usr/bin/perl -w  
use IO::Socket;  
  
$port = 999;  
$num_args = scalar( @ARGV );  
  
$host = 'localhost';  
print "Connecting to $host\n";
  
$client_socket = IO::Socket::INET->new(
     PeerPort  => $port,
     PeerAddr  => $host,
     Proto     => 'tcp',
     Type      => SOCK_STREAM )
     or die "Cannot open socket: $!";
# Read data from server.
$msg = <$client_socket>;
print "Recieved message from server:\n";
print "$msg\n";
       
$client_socket->close();