my $message = HTTP::Message->parse($tcp_pkt);
my $header = $message->headers;
my $ct = $header->header('Content-Type');