use strict;
use warnings;

sub ReadPolicies {
	my $type = shift;
	my @Policies = `/opt/OV/bin/opctemplate -l | grep -i $type | awk '{print \$2}'`;
	return @Policies;
}

for( ReadPolicies( "DBSPI" ) ){
	chomp; # not sure this is required....
	my $cmd = "/opt/OV/bin/opctemplate -e $_";
	print "$cmd\n";
	my $output= `$cmd`;
	print "$output\n";
}