Select Code to Download

use IO::Socket::INET;

...
) || die $!;

$sock->close();

Bad file descriptor at iosock.pl line 3.

IO::Socket::INET:       ...propagated at iosock.pl line 3.