POD formatting 

=item Read( $bytes )
Read at most $bytes and return.
=cut
sub Read {
  my $self = shift;