Help for this page

Select Code to Download


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