my $packet = pack 'c xxx N', $letter, $integer;