my $pid = open my $T, "tcpdump ...|";
my $sel = new IO::Select($T);
my $buf;
while ($sel->can_read($T, 20)) {
  read($T, $buf, 1024, length($buf)) or last;
}
kill 9, $pid;
close($T);
# $buf contains output from tcpdump