perl project #1

# PERL script
#############################
use strict;
use warnings;
print "content-type: text/html \n\n";
use Net::DNS;
my $res = Net::DNS::Resolver->new;
my $name = "deltafiredepartment.com";
#print "Please enter a domain name";
#chomp($name = <>);
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);
print "<html><head></head><body>";
print "<div align=\"center\">";
print "<b>DOMAIN NAME:</b> $name </br>";
print "<b>IP Address:</b> \n";
if ($query1) {
        foreach my $rr ($query1->answer) {
                print $rr->address, "\n </br>";
                }

        }
print "<b>Name Servers:</b> \n";
if ($query2) {
        foreach my $rr (grep { $_->type eq 'NS' } $query2->answer) {
                print $rr->nsdname, "\n </br>";
                }
        }
print "<b>MX Records:</b> \n";
if (@mx) {
        foreach my $rr (@mx) {
                print $rr->preference, " ", $rr->exchange, "\n </br>";
                }
        }
print "<b>SOA Records:</b> \n";
if ($query3) {
        ($query3->answer)[0]->print;
        print "</br>";
        }
print "<b>TXT Records:</b> \n";
if ($query4) {
        ($query4->answer)[0]->print;
        }
#new lines here
else
{ warn "Query failed: ", $res->errorstring, "\n"; }
print "</div></body></html>";

# HTML PAGE
####################################

<html>
<head>
</head>
<body>
<div align="center">
<form action="chkdns.pl" method="post">
Please enter a domain name:<input type="text" name="domain" ><input type="submit" value="Submit"><input type="reset" value="Reset"></br>
</form>
</div>
</body>
</html>