#! perl -slw
use strict;
use IO::Socket;

my $server = new IO::Socket::INET(
    Timeout   => 500,
    Proto     => "tcp",
    LocalPort => 54321,
    Reuse     => 1,
    Listen    => 5
) or die $^E;

my $client = $server->accept;

print while <$client>;

print "client went away";

##</code><code>##

#! perl -slw
use strict;
use IO::Socket;

my $con = IO::Socket::INET->new( 'localhost:54321' );

print $con "ping"  while sleep 1;

print "client ended";