manage drs rule groups

Hi,

I want to manage my drs rule groups via perl api.
Has somebody sample code to add a new rule group and to add a vm to the rule group?

Here my code for listing the rule groups for a given cluster:

--schnipp

$cluster_view = Vim::find_entity_view(view_type => 'ClusterComputeResource',
                                          filter => { name => $cluster });
my $rules = $cluster_view->configuration->rule;
foreach (@$rules) {
        my $rule = $_;
        my $is_enabled = $rule->enabled;
        my $rule_name = $rule->name;
        my $type=ref($rule);
        print "$rule_name\t $is_enabled\t $type\n";
}

--schnapp

regards
Andre