#!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 );

##</code><code>##

Unknown Win32::API::Struct 'LPPOINT' at C:\point.pl line 9
Died at C:\point.pl line 9, <DATA> line 164.