use strict;

use Term::ReadKey;
ReadMode 4;           # raw mode
my $key = ReadKey(0);   # read a character
ReadMode 0;           # back to normal mode

if($key eq "\cR") {
 # do whatever you want to do
 print "got ctrl-R!\n";
}