use Win32::Console;

my $wc = Win32::Console->new(STD_INPUT_HANDLE);
say 'Paste stuff now.';

while (1)
{
    unless ($wc->GetEvents)
    {
        sleep 1;
        next;
    }

    my @ev = $wc->Input;
    my ($event_type, $key_down, $repeat_count, $v_keycode,
        $v_scancode, $ch_num, $control_key_state) = @ev;

    # wait for keyboard event (does paste count?)
    next unless $event_type==1  &&  $key_down;

    # prettify for debug display
    my $char = chr($ch_num);
    $char = '?'  unless $char =~ /[[:print:]]/;

    printf qq{Key: '%s' = 0x%02x = %3dd; key %02x, scan %02x\n},
      $char, $ch_num, $ch_num, $v_keycode, $v_scancode;
}

##</code><code>##

Paste stuff now.
Key: 'd' = 0x64 = 100d; key 44, scan 20
Key: 'o' = 0x6f = 111d; key 4f, scan 18
Key: 'g' = 0x67 = 103d; key 47, scan 22
Key: '?' = 0x00 =   0d; key 12, scan 38
Key: '?' = 0x00 =   0d; key 63, scan 51
Key: '?' = 0x00 =   0d; key 69, scan 49
Key: 's' = 0x73 = 115d; key 53, scan 1f
Key: ' ' = 0x20 =  32d; key 20, scan 39
Key: 'l' = 0x6c = 108d; key 4c, scan 26
Key: 'e' = 0x65 = 101d; key 45, scan 12
Key: 'g' = 0x67 = 103d; key 47, scan 22