Select Code to Download

use strict;
use warnings;
...
my $result = GetCursorInfo($pci) or die $^E; # DIES HERE, RESULTS BELO
+W

print Dumper($pci);  # after, hopefully full of useful information

The parameter is incorrect at getmouseshape.pl line 27, <DATA> line 16
+4.

$VAR1 = bless( {
                 '__typedef__' => 'PCURSORINFO',
...
                                ]
                              ]
               }, 'Win32::API::Struct' );