my $raw  = "\x30\x05\x15";
my $val = unpack('V', "$raw\x00")/1600;