Select Code to Download

my $groupid = ...;
my $newvalue = ...;
...
    print "Not found";
  }
}

package MyCDBI::DBI;
use base 'Class::DBI';
...
__PACKAGE__->has_a(orgid  => "MyCDBI::Org");

1;