Select Code to Download

struct p0f_query q;
recv(c,&q,sizeof(q),MSG_NOSIGNAL)
...

struct p0f_response* n;
send(sock,n,sizeof(struct p0f_response),MSG_NOSIGNAL)

use strict;
use warnings;
...
   print "Link     : " . $link . "\n";
   print "Uptime   : " . $uptime . " hrs\n";
}