foreach $symname (sort keys %main::) {
        #print "$_\n" if /^ybcp/;
        if ( $symname =~ /^ybcp/ ) {
            local *sym = $main::{$symname};
            $$sym->init();
            #print "\$$symname\n" if defined $sym;
        }
    }