Select Code to Download

package mydbh;
...
     if (not grep { $_ eq ref($self) } @ISA);
   return bless $self, $class;
}