I used the getc() example that is used in the perldoc for getting characters from STDIN. below is the code that I used. Can anyone tell me why this dies when I hit the '0' key as well as how to fix this?
#!/usr/bin/perl
system ("stty","-icanon","eol","\01","-echo");
while($_=getc(STDIN)){
print("You Pressed: $_\n");
if (m/q/i){die("Quitting...\n");}
}