This test will fail in the current keyboard layout is not the one as of you wrote it :)
Failure example using a french keyboard:
C:\Users\jddfr\git\perlbuildwindows-build\.cpan\build\Win32-GuiTest-1.64-2>perl -I blib\lib -I blib\arch t\06_sendkeys.t
ok 1 - lowercase character key
ok 2 - uppercase character key
ok 3 - shift+character key
array1:17 0 16 0 57 0 57 2 17 2 16 2
array2:17 0 57 0 57 2 17 2
etc...