$newRecord = $MSIObject->CreateRecord( $record->FieldCount() );
        
    $newRecord->StringData(1, 'Agent2');

    for (my $loop = 0; $loop < $newRecord->FieldCount(); $loop++) {
        print "New Record Field = " . $loop . " = " 
             . $newRecord->StringData($loop) . "\n";
    }