use strict;
use warnings;
use Net::DNS;

my $domain = $ARGV[0] || die "usage: $0 domain";
my $resolver = new Net::DNS::Resolver;

# IP abfragen
my $query = $resolver->search($domain);
if ($query) 
  {
  foreach my $rr ($query->answer) 
    { 
    next unless $rr->type eq "A";
    print $rr->address, "\n";  
    }
  }
else 
  {
  print "Ooos: ", 
  $resolver->errorstring, "\n";
  }

# MX-Record abfragen
my @mxrecs = mx($resolver, $domain);
if (@mxrecs)
  {
  # Gefunden!
  foreach my $rec (@mxrecs)
    {
    print $rec->preference, " ",
           $rec->exchange, "\n";
    }
  }
else
  {
  # Leere Liste, Fehler!
  print "Kein MX-Record fuer $domain: ",
          $resolver->errorstring, "\n";
  }