my $socket = IO::Socket::INET->new(LocalPort => 12345,
                                   Type      => SOCK_STREAM,
                                   Reuse     => 1,
                                   Listen    => 1 );