in reply to Run subroutine occasionally
perl/Tk Term::ReadKey has a timed read feature Any of the async packages