system "stty cbreak </dev/tty >&1"; print ">"; while (($char = getc) ne 'q') { print "\n"; print "You typed $char\n>"; }