die "Could not create listener socket: $!\n" unless $listenersock;
die "Could not create connection to server: $!\n" unless $targetsock;
- # mark sockets as binary
- binmode( $listenersock );
- binmode( $targetsock );
-
my $sel = IO::Select->new($listenersock);
my %Handlers;
while (my @ready = $sel->can_read) {
}
+$ENV{LANG} = 'C'; # so we don't double-encode utf-8 if LANG is utf-8
+
my $listenersock = IO::Socket::INET->new(
Listen => 5,
Proto => 'tcp',