Code:
#Client program
#!/usr/bin/perl
use IO::Socket::INET;
use strict;
my $name = '24.221.34.34'; #Server IP
my $port = '78901';
my $socket = IO::Socket::INET->new('PeerAddr' => $name,
'PeerPort' => $port,
'Proto' => 'tcp') or die "Can't create socket ($!)\n";
Leave a comment: