use Term::ReadKey; print "Please enter character here: "; ReadMode("cbreak",STDIN); $Input = getc(STDIN); ReadMode("original",STDIN); print "$Input\nInput = $Input\n";