my $sock = IO::Socket::INET->new(
        Listen    => 5,
        LocalAddr => 'localhost',
        LocalPort => 9000,
        Proto     => 'tcp');
 
    $sock->setopt(SO_SNDTIMEO, 1);