my $obj= Win32::API->new( "dll", "Function", [qw( P I )], 'I' );