Select Code to Download

foreach (qw( genre detail link tos )) {
   $data->{$_} = pack('c*', $data->{$_});
   $data->{$_} =~ s/\x00.*//;
}

$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');