LANG=C perl writer.pl ;  netstat -n | egrep 7070 | wc -l