my $sock = eval { IO::Socket::INET->new(
			PeerAddr => $host,
			PeerPort => $port,
			Proto    => 'tcp',
		) or die $@; };
# ...
			my $lw = syswrite($sock, $$data); #line 91
			die $! unless defined $lw and $lw == length($$data);