my $byteRec = pack "Z100", $oktetten;