Skip to content

Instantly share code, notes, and snippets.

@zentooo

zentooo/dns_server.pl

Created December 26, 2012 16:17
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save zentooo/4381175 to your computer and use it in GitHub Desktop.
Save zentooo/4381175 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
dns_server.pl
use strict;
use warnings;
use Net::DNS::Nameserver;
my $ns = Net::DNS::Nameserver->new(
LocalPort => 53,
ReplyHandler => sub { print "query" },
Verbose => 1,
) || die "couldn't create nameserver object\n";
$ns->main_loop;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment