#! 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";