%perldoc = (
   open => {
      body => 'html-String',
   },
   print => {
      body => 'alls was dazugehört mit html semantisch ausgezeichnet'
   },
);