while (1) {
   print for (grep {/6000/} `netstat -n`);
   sleep 5;
}