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();