DNS from stdin

#!/usr/bin/perl
use strict;
use warnings;
use Net::DNS;
my $res = Net::DNS::Resolver->new;
my $n1 = "\n";
print "Please enter a domain name$n1";
my $name = <>;
chomp( $name );
sub chckname {
        my $query1 = $res->search($name);
        my $query2 = $res->query($name, "NS");
        my $query3 = $res->query($name, "SOA");
        my $query4 = $res->query($name, "TXT");
        my @mx = mx($res, $name);
        if ($query1) {
                foreach my $rr ($query1->answer) {
                        print $rr->address, $n1;
                        }
                }
        if ($query2) {
                foreach my $rr (grep { $_->type eq  'NS' } $query2->answer) {
                        print $rr->nsdname, $n1;
                        }
                }
        if ($query3) {
                ($query3->answer)[0]->print;
                }
        if ($query4) {
                ($query4->answer)[0]->print;
                }
        if (@mx) {
                foreach my $rr (@mx) {
                        print $rr->preference, " ", $rr->exchange, $n1;
                        }
                }
        else
        { warn "Query failed: ", $res->errorstring, "\n"; }
}
chckname;