use strict; use warnings; use v5.10; use Win32::API; use Win32::API::Struct; use Data::Dumper; BEGIN{ } Win32::API::Struct->typedef( 'POINT', qw ( UCHAR version; UCHAR revision; USHORT build; ) ) or die "Typdef error $!\n"; my $pt = Win32::API::Struct->new('POINT');