#!/usr/bin/env perl
use warnings;
use strict;
use Term::ReadKey;

ReadMode('cbreak');
print "Ctrl-C to quit.\n";

while ( 1 ) {
    my $char = ReadKey(0);
    last unless defined $char;
    printf "0x%02x\n", ord $char;
}

ReadMode('normal');