$ perl -le '`stty -icanon`;print "uh $_ oh\n" while $_=getc();`stty icanon`'