Help for this page

Select Code to Download


  1. or download this
            my $sock = eval { IO::Socket::INET->new(
            PeerAddr => $host,
            PeerPort => $port,
...
# ...
            my $lw = syswrite($sock, $$data); #line 91
            die $! unless defined $lw and $lw == length($$data);
  2. or download this
    ...
1122277564.69174 main /root/iosrv.pl 91
...
1122277574.7017 main /root/iosrv.pl 89
1122277574.70172 main /root/iosrv.pl 90
1122277574.70174 main /root/iosrv.pl 91