Just to note, this won't work on win32.

(To make it work, you'd probably need something like Win32::Console or Term::ReadKey that can read in a nonblocking way from stdin, something like getline(0))