my $message = HTTP::Message->parse($tcp_pkt);
my $header = $message->headers;
# Jetzt sollte $header ein http Header Objekt sein
# Ein my $ct = $header->('Content-Type'); bringt aber nichts

# Danach, wenn die Zeile darüber gehen würde, würde ich so weitermachen:

my $content = $message->decoded_content;
# oder ähnlich...