use strict;
use Win32::API;

Win32::API::Type->typedef( 'OMDTEXTZ', 'TCHAR');
Win32::API::Type->typedef( 'OMDERROR', 'ULONG');
Win32::API::Type->typedef( 'OMD32U', 'ULONG' );
Win32::API::Type->typedef( 'OMDCLIENT', 'ULONG' );

Win32::API->Import( 'omdapi',
	'OMDERROR OMDClientCreate (
			OMDTEXTZ* pUsername,
			OMDTEXTZ* pPassword,
			OMDTEXTZ* pDomain,
			OMD32U options,
			OMDCLIENT* pClient
	)'
);

my $username = 'user1';
my $password = 'pass1';
my $domain = 'domain1';
my $options = 0;
my $client;

my $return = OMDClientCreate( $username, $password, $domain, $options, $client ) or die $^E;