while(1)
{
  ... do some stuff
  if(keypressed)
  {
    $key = key_user_pressed;
    print "The user pressed $key\n";
  }
}