viliampucik · August 10, 2016 07:24
diff --git a/perl-udp-daemon.pl b/perl-udp-daemon.pl
 perl -MPOSIX -MIO::Socket -We '
 my $s = IO::Socket::INET->new(
    Proto     => "udp",
    LocalAddr => "0.0.0.0:162"
 );
 while ( $s->recv( $_, 65535 ) ) {
    print strftime( "%F %T", localtime ), " ", $s->peerhost(), " $_\n";
 }'
	perl -MPOSIX -MIO::Socket -We '
	my $s = IO::Socket::INET->new(
	Proto => "udp",
	LocalAddr => "0.0.0.0:162"
	);
	while ( $s->recv( $_, 65535 ) ) {
	print strftime( "%F %T", localtime ), " ", $s->peerhost(), " $_\n";
	}'