use Net::DNS::Resolver;
my $lh = "65.0.78.101";
my $packet = new Net::DNS::Packet($lh, "A", "IN");