use strict;
use IO::Socket;

my $peeraddr = 'some_host';
my $sock = new IO::Socket::INET (
    PeerAddr => $peeraddr,
    PeerPort => '8282',
    Proto => 'tcp',
);
die "Could not create socket: $!\n" unless $sock;

# crashes here:
$sock->close();

##</code><code>##

(4ec.674): Invalid handle - code c0000008 (!!! second chance !!!)
ntdll!KiRaiseUserExceptionDispatcher+0x4a:
000007f8`140dde8a 8b8424c0000000  mov     eax,dword ptr [rsp+0C0h] ss:00000000`0013f6b0=c0000008

ntdll!KiRaiseUserExceptionDispatcher+0x4a
KERNELBASE!CloseHandle+0x38
msvcrt!close_nolock+0x62
msvcrt!close+0xdb
perl514!PerlIO_findFILE+0xedd
perl514!PerlIO_importFILE+0x1b9
perl514!PerlIOBuf_close+0x89
perl514!Perl_PerlIO_close+0x40
perl514!Perl_runops_debug+0x945
perl514!Perl_setdefout+0xcb0
perl514!Perl_runops_standard+0x16
perl514!Perl_get_av+0x115f
perl514!perl_run+0x246
perl514!RunPerl+0x161
perl+0x1351
KERNEL32!BaseThreadInitThunk+0x1d
ntdll!RtlUserThreadStart+0x38