$ strace -o 698729.out -econnect,sendto,recvfrom perl 698729.pl