Select Code to Download

my $pid = open(T, "tcpdump ...|");
eval {
...
};
kill 9, $pid;
close(T);

my $pid = open my $T, "tcpdump ...|";
my $sel = new IO::Select($T);
...
kill 9, $pid;
close($T);
# $buf contains output from tcpdump