The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use IO::Socket;
use ExtUtils::MakeMaker;

#Lifted from Net::DNS
unlink 't/online.enabled';
eval {
    my $s = IO::Socket::INET->new(
        PeerAddr => "www.google.com:80",
        Timeout  => 10,
    );
    if ($s) {
        close($s);
        open( ENABLED, '>t/online.enabled' )
          or die "Can't touch ./t/online.enabled: $!";
        close(ENABLED) or die "Can't touch t/online.enabled: $!";
    }

};

WriteMakefile(
    'NAME'         => 'Tie::DNS',
    'VERSION_FROM' => 'lib/Tie/DNS.pm',
    'AUTHOR'       => 'Dana M. Diederich <dana@realms.org>',
    'ABSTRACT'     => 'Easy interface to Net::DNS',
    'dist'         => { COMPRESS => 'gzip', SUFFIX => 'gz' },
    'PREREQ_PM'    => {
        Net::DNS   => 0.12,
        Test::More => 0.01,
        Tie::Cache => 0.01,
    },
);