example of set_string_class_member_data_value in perl

Does anyone have an example of set_string_class_member_data_value in a perl script?