[flag type=write table=products1]
    [perl tables=products1]
	my $db = $Db{products1};
	my $ary = $db->query('select sku,prod_group,category from products1');
	my $out = '';
	foreach $row ( @$ary) {
	    my ($sku, $pg, $cat) = @$row;
	    $db->set_field($sku, 'comb_category', "$pg:$cat")
		and $out .= "$sku = $pg:$cat<br>\n";
	}
	return $out;
    [/perl]