CPAN 誕生日なのかな。

>>705
sub hd { join ' ', map uc unpack('H2', $_), split //, $_[0] }

my %data = (
　　id 　　　　　　　　 => '0000000000000000',
　　flg 　　　　　　 　 => [ 0,0,0,0,1,0,0,0 ],
　　question_count => 1,
　　response_count => 0,
　　auth_count　　　 => 0,
　　ext_count 　　 　 => 0,
　　query_name 　　 => 'wwwyahoocojp',
　　query_type　　　 => 1,
　　query_class　 　 => 1,
);

my $request = join '', (
　　pack(B16 => $data{'id'}),
　　pack(B16 => sprintf '%d%04d%d%d%d%d%03d%d', @{$data{'flg'}}),
　　pack(n 　 => $data{'question_count'}),
　　pack(n 　 => $data{'response_count'}),
　　pack(n 　 => $data{'auth_count'}),
　　pack(n 　 => $data{'ext_count'}),
　　　　　　　　　　$data{'query_name'},
　　pack(n 　 => $data{'query_type'}),
　　pack(n 　 => $data{'query_class'}),
);

print hd($request);