11 |
use Getopt::Long; |
use Getopt::Long; |
12 |
use IO::Socket::INET; |
use IO::Socket::INET; |
13 |
use Storable qw/freeze thaw/; |
use Storable qw/freeze thaw/; |
14 |
|
use Digest::MD5 qw/md5/; |
15 |
|
|
16 |
|
|
17 |
my $debug = 0; |
my $debug = 0; |
130 |
sub send_sock { |
sub send_sock { |
131 |
my ( $sock, $data ) = @_; |
my ( $sock, $data ) = @_; |
132 |
my $size = length $data; |
my $size = length $data; |
133 |
warn ">>>> $listen ", $sock->peerhost, " $size bytes"; |
warn ">>>> $listen ", $sock->peerhost, " $size bytes\n"; |
134 |
print $sock "$size\n$data" || warn "can't send $size bytes to ", $sock->peerhost; |
print $sock "$size\n$data" || warn "can't send $size bytes to ", $sock->peerhost; |
135 |
} |
} |
136 |
|
|