ReadBytes(\*STDOUT,10); ## a test :)
sub ReadBytes {
    my( $fh, $bytes  ) = @_;
    $bytes or Carp::croak 'Usage: ReadBytes( $filehandle, $bytes ) ';
    my $readed = read $fh, my($data) , $bytes;
    $readed == $bytes or Carp::carp "Only read($readed) but wanted($bytes): $! ## $^E ";
    $data;
}
use constant CAN_PACK_QUADS => !! eval { my $f = pack 'q'; 1 };