Select Code to Download

    #### import an API that uses this structure
    my $getCursor = new Win32::API('user32', 'GetCursorPos','S','N');
...
    #### and now, access its members
    my ($x,$y) = unpack('LL',$pt);
    print "The cursor is at: ".$x.", ".$y."\n";