my $length = <READER>;
  chomp($length);
  
  my $buffer = "";
  while(length $buffer < $length and not eof(READER)) {
     read(READER, $buffer, 4048, length $buffer);
  }

  # do something with the YAML data in buffer...