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