#!/usr/bin/perl
system ("stty","-icanon","eol","\01","-echo");
while($_=getc(STDIN)){
  print("You Pressed: $_\n");
  if (m/q/i){die("Quitting...\n");}
}