Help for this page

Select Code to Download

Select or download this

use Term::ReadKey;
my $key = '';
...
}
print "\n";
ReadMode(0);