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