Select Code to Download

my $pid = open TRAFFIC, "-|",  "/usr/sbin/tcpdump", "-i", "eth0" or di
+e $!;

my ($rin,$rout);
vec( $rin, fileno( TRAFFIC), 1) = 1;
...
    last if $sleep <= 0;
 # read TRAFFIC and process
}