#!/usr/bin/perl

use IO::Socket::INET;


$| = 1;

my $socket = new IO::Socket::INET (
PeerHost => 'theaddressofmycomputer.com',
PeerPort => '7777',
Proto    => 'tcp',
);
die "Cannot connect to the server $!\n" unless $socket;
print "Connected to the server!\n";

my $req = "Hello World\n";
my $size = $socket->send($req);
print "Sent data of length $size\n";

shutdown($socket, 1);

my $response = "";
$socket->recv($response, 1024);
print "Recieved response: $response\n";

$socket->close();