Different default IP addresses.
use Socket;
+my $V=1;
+$|=1;
+
my $D;
my $opt_addr;
my $opt_port=5353;
my $opt_forward_addr="localhost";
my $opt_forward_port=53;
-my $opt_spoof_ip="192.196.60.1";
+my $opt_spoof_ip="192.168.1.1";
die if !GetOptions(
"a|addr=s",\$opt_addr,
"p|port=s",\$opt_port,
send $sock_udp,$reply_back,0,$query_from_addr or cluck "send(): $!";
}
+$V and print localtime()." START\n";
for (;;) {
my $rfds="";
vec($rfds,fileno($sock_udp),1)=1;