my $DONT = pack 'ss', 1, 0; setsockopt( $svr, SOL_SOCKET, SO_LINGER, $DONT ) or warn $^E; ## verify setting my $QUERY = getsockopt( $svr, SOL_SOCKET, SO_LINGER ) or warn $^E; printf "\n\n%u %u\n\n", unpack 's2', $QUERY; #### C:\test>junk79 12345 server:154323 client:154324 cycles: 385.846/secUse of uninitialized value $in in concatenation (.) or s server:682262 client:682261 cycles: 358.073/secUse of uninitialized value $in in concatenation (.) or s server:720436 client:720434 cycles: 340.687/secUse of uninitialized value $in in concatenation (.) or s server:1121215 client:1121216 cycles: 350.004/secTerminating on signal SIGINT(2)