while(my $len = sysread( $sock, my $buffer, 1) > 0) {  print "$buffer\n"; }