#!/usr/bin/perl -w
use strict; use Socket; use Sys::Hostname;
my ( $count, $hisiaddr, $hispaddr, $histime,
$host, $iaddr, $paddr, $port, $proto,
$rin, $rout, $rtime, $SECS_of_70_YEARS);
$SECS_of_70_YEARS = 2208988800;
$proto = getprotobyname(‚udp‘); $port = getservbyname(‚echo‘, ‚udp‘);
socket(SOCKET, PF_INET, SOCK_DGRAM, $proto) || die „socket: $!“;
open RAN, „