use Term::ReadKey;
  ReadMode 4;
  if (my $key = ReadKey(-1) and $key = ' ')
  {
    # space was pressed
    close(INPUT_HANDLE);
  }