Probably Term::ReadKey does what you want.
In reply to Re: Timing user input by GrandFather in thread Timing user input by solar_perl