try what tachyon said. In case you need to know the syntax as how to set SO_LINGER, here is an example:

setsockopt(BROWSER_LISTENER, SOL_SOCKET, SO_LINGER, pack("l", 1)) || d
+ie "Failed to setsockopt: $!";
[download]