my $bytes = pack 'N/a*', pack (
  'a a3 a*',
  '0',
  '004',
  pack('n/a*', 'nr')
 .pack('n/a*', '123456')
 .pack('n/a*', 'pos')
 .pack('n/a*', '123'),
);