Select Code to Download

        my @menubar = (
                    {title  =>'home',
...
                    @menubar;

        print $cgi->end_div();

        my $template = HTML::Template->new(
                             filename => 'menubar.tmpl');
...
        $cgi->end_div(), 
        "\n\n", 
        $cgi->start_div({-id=>'tmbox'});

    <TMPL_LOOP NAME=BOTTOM_LIST>
        <span class="mitem">
...
            </a>
        </span>
     </TMPL_LOOP>