sub ReadBytes {
    my( $fh, $bytes  ) = @_;
    $bytes or Carp::croak 'Usage: ReadBytes( $filehandle, $bytes ) ';
    my $readed = read $fh, my($data) , $bytes;
    $readed == $bytes or Carp::warn "Only read($readed) but wanted($bytes): $! ## $^E ";
    $data;
}
sub Int8   { unpack 'c', $_[-1] }
sub UInt8  { unpack 'C', $_[-1] }
sub Int16  { unpack 's<', $_[-1] }
sub UInt16 { unpack 'S<', $_[-1] }
sub Int32  { unpack 'l<', $_[-1] }
sub UInt32 { unpack 'L<', $_[-1] }
sub Int64  { unpack( ( CAN_PACK_QUADS  ? 'q<' : 'a8' ), $_[-1] ) }
sub UInt64 { unpack( ( CAN_PACK_QUADS  ? 'Q<' : 'a8' ), $_[-1] ) }
sub ReadInt8   { Int8(    ReadBytes( $_[-1], 8 /8 ) ); }
sub ReadUInt8  { UInt8(   ReadBytes( $_[-1], 8 /8 ) ); }
sub ReadInt16  { Int16(   ReadBytes( $_[-1], 16/8 ) ); }
sub ReadUInt16 { UInt16(  ReadBytes( $_[-1], 16/8 ) ); }
sub ReadInt32  { Int32(   ReadBytes( $_[-1], 32/8 ) ); }
sub ReadUInt32 { UInt32(  ReadBytes( $_[-1], 32/8 ) ); }
sub ReadInt64  { Int64(   ReadBytes( $_[-1], 64/8 ) ); }
sub ReadUInt64 { UInt64(  ReadBytes( $_[-1], 64/8 ) ); }