#!/usr/bin/perl
Есть вот такой примитив
use IO::Socket;

my $server_port = 4001;

$server = IO::Socket::INET->new(LocalPort => $server_port,
                                Proto => 'tcp',
                                Reuse => 1,
                                Listen => 1 )
         or die "Couldn't be a tcp server on port $server_port\n";
while ( $client = $server->accept()) {
    $server->autoflush(1);
    print "Client connected\n";
    $finished;
    while(!$finished) {
        $server->recv( $c, 1, 1);
        if( $c>0 ) { printf "%X ",$c; }
    }
}
close($server);
теперь вопрос, уважаемые форумчане, как читать из потокового socket-а побайтно данные