my $x = pack("C", 0x55); print $x, "\n";