use strict;
use Win32::API;

my $function = Win32::API->new( 'omdapi', 'OMDClientCreate', 'PPPIP', 'I');

my $client = pack('L', 0);

my $username = 'user1';
my $password = 'pass1;;
my $domain = 'domain1';

my $return = $function->Call( $username, $password, $domain, 0, $client );