perl -e 'use strict; my @n = system("/bin/netstat -a|grep LISTEN|grep -v unix; sleep 4"); print $_ . $/ for @n;'