Select Code to Download

use 5.010;
use strict;
use warnings;
...
my $client = $server->accept() or die;
$server->close;
say 'Connection from ' . $client->peerhost;

use 5.010;
use strict;
use warnings;
...
                                   PeerPort => 8000,
                                   Timeout  => 10) or die;
say 'Client connected';

Server listening...
Connection from 127.0.0.1

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