kabel@linux:~/progs/perl/pktm> perl -w pktm.pl
$VAR1 = [
          {
            'TOC' => [
                       '<a href="#intro">Was sind Cookies?</a>',
                       '<a href="#kekse_perl">Cookies mit perl</a>',
                       '<a href="#kekse_setzen">Cookies setzen (perl-script)</a>',
                       '<a href="#cookies_ohne_modul">Cookies ohne CGI.pm</a>'
                     ],
            'TITEL' => 'Cookies'
          },
          [
            {
              'EINTRAG_TITEL' => 'Was sind cookies?',
              'LINK' => [
                          '& '
                        ],
              'EINTRAG_TEXT' => '<p>Cookies sind kleine Textdateien, die auf Ihrem Computer gespeichert werden.'
            },
            {
              'EINTRAG_TITEL' => 'Cookies mit perl',
              'LINK' => [
                          '& '
                        ],
              'EINTRAG_TEXT' => '<h3>Einleitung</h3>'
            },
            {
              'EINTRAG_TITEL' => 'Cookies setzen (perl-script)',
              'LINK' => [
                          '& '
                        ],
              'EINTRAG_TEXT' => '<pre> blubber di bla'
            },
            {
              'EINTRAG_TITEL' => 'Cookies ohne CGI.pm',
              'LINK' => [
                          '& '
                        ],
              'EINTRAG_TEXT' => '<H3>Cookies einlesen</H3>'
            }
          ]
        ];
kabel@linux:~/progs/perl/pktm>