tcpdump top talker perl script - initial commit