socket( SERVER, PF_INET, SOCK_STREAM, $proto ) ||
    die "Can't create socket: $!\n";

setsockopt( SERVER, SOL_SOCKET, SO_REUSEADDR, pack( "l", 1 ) ) ||
    die "Can't set socket option: $!\n";

bind( SERVER, sockaddr_in( $port, INADDR_ANY ) ) ||
    die "Can't bind to socket: $!\n";

listen( SERVER, SOMAXCONN ) ||
    die "Can't set max connections (listen): $!\n";