131 |
die "Could not create listener socket: $!\n" unless $listenersock; |
die "Could not create listener socket: $!\n" unless $listenersock; |
132 |
die "Could not create connection to server: $!\n" unless $targetsock; |
die "Could not create connection to server: $!\n" unless $targetsock; |
133 |
|
|
134 |
|
# mark sockets as binary |
135 |
|
binmode( $listenersock ); |
136 |
|
binmode( $targetsock ); |
137 |
|
|
138 |
my $sel = IO::Select->new($listenersock); |
my $sel = IO::Select->new($listenersock); |
139 |
my %Handlers; |
my %Handlers; |
140 |
while (my @ready = $sel->can_read) { |
while (my @ready = $sel->can_read) { |