Mega Code Archive

 

Categories / Perl / System Functions

 

Stty cbreak devtty 1

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