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