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;

##</code><code>##

use 5.010;
use strict;
use warnings;
use IO::Socket;
my $socket = IO::Socket::INET->new(Proto    => 'tcp',
                                   PeerAddr => 'localhost',
                                   PeerPort => 8000,
                                   Timeout  => 10) or die;
say 'Client connected';

##</code><code>##

Server listening...
Connection from 127.0.0.1

##</code><code>##

Server listening...
accept: timeout ...propagated at server.pl line 16.