DNS against multiple NS

#!/usr/bin/perl
#DNS Check/Propagation Tool
#Does a simple DNS check against 4 pre-defined NS

use strict;
use warnings;
use version;
our $VERSION = qv{1.0);

use Net::DNS;


my $n1 = "\n";
print "Please enter a domain name$n1";
my $name = <>;
chomp( $name );
my @nameservers = ("8.8.8.8", "74.220.195.31", "62.69.64.134", "69.89.16.4");
my $nameserver;
my $pkg = bless {}, __PACKAGE__;
$pkg->main();
sub main {
        my $self = shift;
        foreach $nameserver(@nameservers) {
                print "\n\nChecking against IP => $nameserver\n";
                my $res = new Net::DNS::Resolver;
                $res->nameservers($nameserver);
                foreach my $type("A","NS","SOA","MX") {
                        my $query = $res->query($name, "$type");
                        ($query->answer)[0]->print;
                        }
                next;
                }
        }