use 5.010;
use strict;
use warnings;
use IO::Socket;
say 'Server listening...';
my $server = IO::Socket::INET->new(Proto     => 'tcp',
                                   LocalPort => 8000,
                                   Listen    => 1,
                                   ReuseAddr => 1,
                                   Timeout   => 10) or die;
my $client = $server->accept() or die;
$server->close;
say 'Connection from ' . $client->peerhost;