use Win32::API;
use Data::Dumper;
use Win32;
use strict;
use warnings;


use Encode qw( encode );

my $filehandler = encode('UCS-2le', "C:\\test.wim\0");


my $wimfile = new Win32::API("wimgapi", "WIMCreateFile", ['P','C','C','C','C','N'], 'C')or die Win32::FormatMessage(Win32::GetLastError);
my $LLHandle = $wimfile->Call($filehandler,
                           'WIM_GENERIC_WRITE',
                           'WIM_CREATE_NEW',
                           0,
                           0,
                           0)or die Win32::FormatMessage(Win32::GetLastError);

print $LLHandle;