use IO::Socket;
$sock = IO::Socket::INET->new(Listen    => 5,
                              LocalAddr => 'localhost',
                              KeepAlive => 1,
                              LocalPort => 1234,
                              Reuse => 1,
                              Proto     => 'tcp');