my $res = Net::DNS::Resolver->new();
my $packet = $res->search('example.com', 'HINFO');
my ($rr) = $packet->answer();
print "cpu = ", $rr->cpu, " os = ", $rr->os, "\n";