#!c:\perl\bin\perl -w

use strict;
use Data::Dumper;
use Win32::API;

Win32::API::Struct->typedef( 'POINT', 'LONG', 'x', 'LONG', 'y' );

my $point = Win32::API::Struct->new( 'LPPOINT' ) or die $!;

print Dumper( $point );