use Term::ReadKey;

sub pressAnyKey {

   print "Press any key to continue...\n\n";
   ReadMode 4;   # turn off control keys
   While (not defined ($key = ReadKey(-1))) {}
   readMode 0;   # restore read mode
}