Win32::API::Struct->typedef( 'POINT', qw ( UCHAR version; UCHAR revision; USHORT build; ) ) or die "Typdef error $!\n" my $pt = Win32::API::Struct->new('POINT');