perldoc['open']['body'];
  perldoc['print']['body'];
  // usw.