my $c = Convert::Binary::C->new();

eval { $c->parse_file("p0f-query.h"); 1 }
   or die("Unable to parse p0f-query.h: $@\n");

$c->tag('p0f_query.src_ad',    ByteOrder => 'BigEndian');
$c->tag('p0f_query.dst_ad',    ByteOrder => 'BigEndian');
$c->tag('p0f_response.genre',  Format    => 'String');
$c->tag('p0f_response.detail', Format    => 'String');
$c->tag('p0f_response.link',   Format    => 'String');
$c->tag('p0f_response.tos',    Format    => 'String');