#!/usr/bin/env perl use warnings; use 5.012; use Term::ReadKey; sub getch { my $c = ReadKey 0; if (...