#!/usr/bin/perl -w
use strict;
use Net::DNS::Resolver;
use Net::DNS::Packet;

my $ns = shift(@ARGV);

# New resolver, use the above nameserver
my $res = new Net::DNS::Resolver;
$res->nameservers($ns);

# Run the query
my $res_packet = $res->query("www.slashdot.org");
if (!defined $res_packet) { die("res_packet undefined\n"); }

# Process the returned packet so we can read it
my $d_packet = bless \%{$res_packet}, "Net::DNS::Packet";
if (!defined $d_packet) { die("d_packet undefined\n"); }
print "Packet:\n", $d_packet->string;