Select Code to Download

MSIObject = CreateObject Win32::OLE 'WindowsInstaller.Installer';

...
    else {
        print "Record is undefined!\n"
    }

    
    $newRecord = $MSIObject->CreateRecord( $record->FieldCount() );
        
...
        print "New Record Field = " . $loop . " = " 
             . $newRecord->StringData($loop) . "\n";
    }

    
    $view->Modify(9, $newRecord);
    print "View Error = " . $view->GetError() . "\n";
...
    $dbReference = undef;
    $reference = undef;
}