gmargo@tesla 1753$ perl  telnet_test.pl 
Thu Nov  5 19:41:00 2009: Connect to localhost...OK
Thu Nov  5 19:41:00 2009: Login to localhost...OK
Thu Nov  5 19:41:11 2009: get() returned TIMEOUT
Thu Nov  5 19:41:11 2009: put() sending string
Thu Nov  5 19:41:11 2009: get() returned definite output="echo HELLO
"
Thu Nov  5 19:41:11 2009: get() returned definite output="HELLO
issac@tesla 79$ "
Thu Nov  5 19:41:22 2009: get() returned TIMEOUT
Thu Nov  5 19:41:22 2009: put() sending string
Thu Nov  5 19:41:22 2009: get() returned definite output="echo HELLO
"
Thu Nov  5 19:41:22 2009: get() returned definite output="HELLO
issac@tesla 80$ "
Thu Nov  5 19:41:33 2009: get() returned TIMEOUT
Thu Nov  5 19:41:33 2009: put() sending string
Thu Nov  5 19:41:33 2009: get() returned definite output="echo HELLO
"
Thu Nov  5 19:41:33 2009: get() returned definite output="HELLO
issac@tesla 81$ "
Thu Nov  5 19:41:44 2009: get() returned TIMEOUT
Thu Nov  5 19:41:44 2009: put() sending string
Thu Nov  5 19:41:44 2009: get() returned definite output="echo HELLO
"
Thu Nov  5 19:41:44 2009: get() returned definite output="HELLO
issac@tesla 82$ "