my $data_ref = pack ('C*', (0x81 , 0x55, 0x00, 0xE0));