sub dump_subtable {
  # NAME
  #        dump_subtable() - dump a subtable
  #
  # SYNOPSIS
  #etc...

  my ($self)= shift(@_);
  my (%args)= @_; #etc...