sleep_sort を見てたら、ちょっと sleep するだけの DNS サーバーが欲しくなったので、書いてみました。 use strict; use warnings; use Net::DNS::Nameserver; use Time::HiRes qw(sleep); my $wait = 5; my $ns = Net::DNS::Nameserver->new( LocalPort => 53, ReplyHandler => sub { sleep $wait }, Verbose => 1, ) || die "couldn't create nameserver object\n"; $ns->main_loop; これを $ sudo perl mydns_server.pl とかしておいて、/etc/resolv.conf の中身を nameserver 127.0