Select Code to Download

package factory;

...
    $ret[0] = 'HQ' if ($_row[0] eq 'Headquarters');
    return @ret;
}

my $fact = factory->new();
my $instance = $fact->getInstance($dcr_type, @row);
return $instance->doTheDeed();