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 -6 passes it via IPv6 UDP to localhost. 4# The server receives the message on its UDP socket. 5# Check that localhost gets resolved to the ::1 address. 6 7use strict; 8use warnings; 9use Socket; 10 11our %args = ( 12 syslogd => { 13 loghost => '@localhost:$connectport', 14 options => ["-6"], 15 }, 16 server => { 17 listen => { domain => AF_INET6, addr => "::1" }, 18 }, 19); 20 211; 22