use Socket qw(SOL_SOCKET SO_KEEPALIVE);
setsockopt($socket, SOL_SOCKET, SO_KEEPALIVE,  1);