#!/usr/bin/perl -w
 use lib qw(lib);
 use HTML::Menu::TreeView qw(Tree css jscript preload);
 use CGI qw(-compile :all  -private_tempfiles);
 use strict;
 my @tree = (
             {
              onclick => "alert('onclick');",
              text    => 'onclick',
             },
             {
              text    => 'Html::Menu::TreeView',
              target  => '_parent',
              subtree => [
                          {
                           text    => 'Examples',
                           subtree => [
                                       {
                                        text => 'OO Syntax',
                                        href => './oo.pl',
                                       },
                           ],
                          },
              ],
             },
             {
              ondblclick => "alert('ondblclick');",
              text       => 'ondblclick',
              title      => 'ondblclick',
             },
 );
 print(
       header(),
       start_html(
                  -title  => 'Fo',
                  -script => jscript() . preload(),
                  -style  => {-code => css()}
       ),
       Tree(\@tree),
       end_html
 );