$_ = "\x34\x01";
my @nums = unpack('s', $_);
my @flags = ( split //, unpack('B16', pack('n', $nums[0])) )[16-9 .. 16-1];