POD formatting 

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

Read at most $bytes and return.

=cut

sub Read {
  my $self = shift;