use IO::Socket::INET;

my $sock = IO::Socket::INET->new(
	PeerAddr => 'peer',
	PeerPort => 9876,
	Proto => 'tcp',
	Type => SOCK_STREAM,
	Blocking => 0
) || die $!;

$sock->close();

##</code><code>##

Bad file descriptor at iosock.pl line 3.

##</code><code>##

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