--- p10cfgd-1.0.orig/examples/stats/telpp
+++ p10cfgd-1.0/examples/stats/telpp
@@ -0,0 +1,31 @@
+#!/usr/local/bin/expect --
+# a dumb little 'expect' program to check the heard list on ppfma.ampr.org
+
+set timeout 15
+
+puts [timestamp -format %c]		;# time tag the output
+
+spawn telnet 44.32.4.2
+expect "login: " { send "wd0fhg\r" }
+
+expect "NET/ROM*"  { send "j\r" }	;# for now we will just look at all
+
+expect  {			;# no easy way to tell that the list is 
+				;# complete so we'll just time out
+	"NET/WRONG*"  {}	;# looking for we can't find.
+	}
+
+expect "*"	{ send "\r\r"  };# flush the expect buffer
+
+expect "*"	{ send "c ax4 w0lkd-1\r" } :# try to connect on .01
+
+expect "Connected"	{send "\rb\r" }  ;# just try the connection
+
+expect "*"	{ send "\rb\r" };# flush the expect buffer and signoff
+
+expect "closed*"		;# wait for the connection to close
+
+exec sleep 3
+
+expect eof
+