1# The client writes a message to Sys::Syslog native method. 2# The syslogd writes it into a file and through a pipe. 3# The syslogd passes it via explicit IPv4 UDP to localhost. 4# The server receives the message on its UDP socket. 5# Find the message in client, file, pipe, syslogd, server log. 6# Check that localhost gets resolved to the 127.0.0.1 address. 7 8use strict; 9use warnings; 10use Socket; 11 12our %args = ( 13 syslogd => { 14 loghost => '@udp4://localhost:$connectport', 15 }, 16 server => { 17 listen => { domain => AF_INET, addr => "127.0.0.1" }, 18 }, 19); 20 211; 22