my $ip_pkt = shift;
 my $msg = shift;
 my $packet_id = shift;
 my $pkt = shift;

 my $tcp_pkt = NetPacket::TCP->decode($ip_pkt->{data});
 my $tcp_pkt_data = $tcp_pkt->{data};