perl project #1 - DNS Lookup

#!/usr/bin/perl
use strict;
use warnings;
print "content-type: text/html \n\n";
use Net::DNS;
use CGI;
my $q = CGI->new;
my $res = Net::DNS::Resolver->new;
my $n1 = "\n";
print $q->start_html(-lang=>'en-US',-title=>"DNS Lookup"),
        $q->start_div(-align=>'center'),
        $q->start_form,
        $q->textfield(-name=>'domain',-value=>''),$n1,
        $q->submit(-name=>'submit',-value=>'submit'),$n1,
        $q->defaults('Reset'),$n1,
        $q->end_form,$n1,
        $q->end_div;

my $name = $q->param('domain');
my @dnschck;
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;