perl -MNet::Time=inet_time -le'print inet_time("volvo", "tcp", 10);'

##</code><code>##

 return undef
        unless $s->recv($buf, length(pack("N",0)));