DNS from stdin (simplified)

#!/usr/bin/perl
use strict;
use warnings;
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;
sub chckname {
        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;
                }
        }
chckname;