sub _toporretr {

  my(%defaultargs) = (MSGID => 1,
                      LINES => 0);

  my($self)= shift;
  my(%args) = (%defaultargs, @_);