use Term::ReadKey;
use Term::ReadKey; ReadMode('cbreak'); $char = ReadKey(0); ReadMode('normal'); print "You typed: $char.\n";