slight change to echo logic in perl client