my $linger = pack('ii', 1, 120); # BSD struct 
$usock->sockopt(SO_LINGER, $linger);