GL
概要
这是一个perl程序，其行为与DNS服务器类似，不同之处在于，无论您要求什么，它始终以A记录的形式返回请求信息的客户端的IP地址。 这是显示的示例程序的骇客版本。 可能有更好的方法来执行此操作，但是组合起来非常快。
要求
如果要使用syslog进行输出，则需要Net::DNS::Nameserver软件包和Sys::Syslog 。 （如果没有，请参阅下面的“使用”下的详细信息）。
制备
最重要的是在结束之前编辑代码块：
my $ns = new Net::DNS::Nameserver(
LocalAddr => [ ' 192.168.0.42 ' ],
LocalPort => 53,
ReplyHandler => \&reply_handler,
Verbose => 0
) || die " could
