use Socket qw( AF_INET SOMAXCONN );
use IO::Socket qw( );

my $socket = IO::Socket->new(
    Domain    => AF_INET,
    Proto     => 'tcp',
    LocalPort => $port,
    ReuseAddr => 1,
    Listen    => SOMAXCONN,
) 
    or do { $logger->fatal("Can't create socket: $!");
            $logger->fatal("Exiting with an exit code of $!.");
            exit($!);
          };