#!/usr/bin/perl -w

            use Net::DNS;

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

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