Select Code to Download

my $object = Itiv::Hw->new();
my ($cols, $hw) = $object->all_hw($dbh, $filter);
...
foreach (@$cols) {
   ....
}