(my $flags, my $x, my $y, my $mode3,
my $callsign, my $route, my $spare1,
my $spare2, my $flight_level, my $terminator,
my $chksum_packet) = unpack ( "B16 n2 A4 A8 A2 A A A3 C2" }, $buffer);