Select Code to Download

                           WIM_GENERIC_WRITE,
                           WIM_CREATE_NEW,

my $hWim = $wimfile->Call(
    $filehandler, WIM_GENERIC_WRITE, WIM_CREATE_NEW, 0, 0, 0
) or die "Error: $^E";