use strict;
use warnings;
use Term::ReadKey;

ReadMode(4);
my %keys = GetControlChars;
my $int = $keys{INTERRUPT};
while ((my $input = ReadKey(0)) ne $int) {
    print ord($input), "\n";
}
print ord($input), "\n";
ReadMode(0);