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