use Win32::API;
    use Win32::API::Struct;
    use strict;
    use warnings;

        #0.41            
    #print Win32::API->VERSION;

    Win32::API::Struct->typedef('test', qw( 
      char i;
      long l;
    ));
    
    my $Bl = Win32::API::Struct->new('test');
        #8. Why not 5?
    print "\nSize:", $Bl->sizeof();