Select Code to Download

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