my $raw = 0x300515;
my $val = unpack('N', "\x00".pack('V', $raw))/1600