perl udp socket program

1. #!/usr/bin/perl -w
2. use strict;
3. use Socket;
4. use Sys::Hostname;
6. my ( $count, $hisiaddr, $hispaddr, $histime,
7. $host, $iaddr, $paddr, $port, $proto,
8. $rin, $rout, $rtime, $SECS_OF_70_YEARS);
10. $SECS_OF_70_YEARS = 2_208_988_800;
12. $iaddr = gethostbyname(hostname());
13. $proto = getprotobyname("udp");
14. $port = getservbyname("time", "udp");
15. $paddr = sockaddr_in(0, $iaddr); # 0 means let kernel pick
17. socket(SOCKET, PF_INET, SOCK_DGRAM, $proto) || die "socket: $!";
18. bind(SOCKET, $paddr) || die "bind: $!";
20. $| = 1;
21. printf "%-12s %8s %s\n", "localhost", 0, scalar localtime();
22. $count = 0;
23. for $host (@ARGV) {
24. $count++;
25. $hisiaddr = inet_aton($host) || die "unknown host";
26. $hispaddr = sockaddr_in($port, $hisiaddr);
27. defined(send(SOCKET, 0, 0, $hispaddr)) || die "send $host: $!";
28. }
30. $rin = "";
31. vec($rin, fileno(SOCKET), 1) = 1;
33. # timeout after 10.0 seconds
34. while ($count && select($rout = $rin, undef, undef, 10.0)) {
35. $rtime = "";
36. $hispaddr = recv(SOCKET, $rtime, 4, 0) || die "recv: $!";
37. ($port, $hisiaddr) = sockaddr_in($hispaddr);
38. $host = gethostbyaddr($hisiaddr, AF_INET);
39. $histime = unpack("N", $rtime) - $SECS_OF_70_YEARS;
40. printf "%-12s ", $host;
41. printf "%8d %s\n", $histime - time(), scalar localtime($histime);
42. $count--;
43. }