print "got 'command' subitem $i '", 
  (defined $subitem->name() ? $subitem->name() : '<<undefined>>')
  , "'\n";