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);
##</code><code>##

...
1122277564.69174 main /root/iosrv.pl 91
1122277564.69182 main /root/iosrv.pl 92
1122277564.69185 main /root/iosrv.pl 93
1122277564.69188 main /root/iosrv.pl 95
1122277564.6919 main /root/iosrv.pl 100
1122277564.69193 main /root/iosrv.pl 39
1122277574.70139 main /root/iosrv.pl 36
1122277574.70156 main /root/iosrv.pl 37
1122277574.70159 main /root/iosrv.pl 38
1122277574.70162 main /root/iosrv.pl 85
1122277574.70165 main /root/iosrv.pl 86
1122277574.70167 main /root/iosrv.pl 88
1122277574.7017 main /root/iosrv.pl 89
1122277574.70172 main /root/iosrv.pl 90
1122277574.70174 main /root/iosrv.pl 91