my $s = pack "c5", (0)x5;