#!/home/utils/perl/bin/perl

use strict;
use warnings;
use IO::Socket;
my $server = IO::Socket::INET->new(LocalPort => 4444, Reuse => 1, Listen => 10);
die $@ unless $server;
print "waiting for a connection\n";
while (my $client = $server->accept()) {
   my $line = <$client>;
   print $line;
   close($client);
}

##</code><code>##

use strict;
use warnings;
use IO::Socket;
my $socket = IO::Socket::INET->new(PeerAddr => 'isfe',
                                   PeerPort => 4444,
                                   Type => SOCK_STREAM);
die $@ unless $socket;
print $socket "hello\n";
close($socket);

##</code><code>##

erickn@isfe:/home/erickn> server1.pl   
waiting for a connection
hello