Hmm, well the kludge is the following:
```
sub debuglevel
{
  my ($self, $debug_level) = @_;
  return Insteon::AllLinkDatabase($self, $debug_level);
 }
```
There may be a more elegant or appropriate way to do it in perl.  I was looking at the **use** function or **import** but I don't think either would accomplish what we need because the imported functions would never be put into the inheritance tree for the object.