sub _read_data {
   read ( STDIN, my $buffer, 16 );  # nb changed buf size for testing
 return $buffer;
}