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