Use Term::ReadKey to perform a non-blocking read each time through your loop (after setting for cbreak and noecho). If there's been a key hit, print your status report; if not just keep going.