Select Code to Download

use Win32::Console;

my $wc = Win32::Console->new(STD_INPUT_HANDLE);
...
    printf qq{Key: '%s' = 0x%02x = %3dd; key %02x, scan %02x\n},
      $char, $ch_num, $ch_num, $v_keycode, $v_scancode;
}

Paste stuff now.
Key: 'd' = 0x64 = 100d; key 44, scan 20
Key: 'o' = 0x6f = 111d; key 4f, scan 18
...
Key: 'l' = 0x6c = 108d; key 4c, scan 26
Key: 'e' = 0x65 = 101d; key 45, scan 12
Key: 'g' = 0x67 = 103d; key 47, scan 22