use Win32::API;
use Win32::API::Struct;
$Win32::API::DEBUG = 1;

Win32::API::Struct->typedef( test => qw(char i; long l;) );
my $b = Win32::API::Struct->new( 'test' );
print $b->sizeof;