#### Class dbi instance script ######
use strict;
use CCopy;

my $owner_id = shift || die "Must call with a site id to copy to.";

my $it = CCopy::Chart->retrieve_all;
while (my $chart = $it->next) {
    ***********   $chart->items; ***************
}