my $CHILD = open2(\*READ, \*WRITE, "$TSHARK $TSHARKOPTS") ||
        die "Can't open2 child process: $!";
push @children, $CHILD;
END { kill 9 => @children; };