1#!/usr/bin/perl -w 2 3# vim: set ft=perl: 4 5use strict; 6use Test::More tests => 3; 7my ($res, @res); 8 9use_ok("Net::Nslookup"); 10 11# Get A record 12$res = nslookup(host => "test.boston.com", type => "A"); 13is($res, "66.151.183.17", "nslookup(host => www.boston.com, type => A) -> 66.151.183.17"); 14 15# Get A record (shortcut usage) 16$res = nslookup("test.boston.com"); 17is($res, "66.151.183.17", "nslookup(www.boston.com) -> 66.151.183.17"); 18