my $server = IO::Socket::INET->new(
    LocalHost => 'localhost',
    LocalPort => '5188',
    Proto => 'tcp',
    Listen => 5,
    Reuse => 1,
) or die "Couldn't create listening socket";