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;
}