perl -e'while(1) { print "Datagram"; sleep 1; }'