#!/usr/bin/perl -w
use strict;
use IO::Socket::INET;
$| = 1;
my $socket = new IO::Socket::INET (
    PeerHost => '192.168.1.107',
    PeerPort => '27109',
    Proto => 'tcp'
) or die "No socket: $!\n";
my $sent = 'This is a test.';
print $socket "$sent\n\n";
while(<$socket>) {
    print "$_";
}
$socket->close();

##</code><code>##

my $line;
while( defined($line=<$socket>)) {
    print $line;
}