Select Code to Download

#!/usr/bin/perl
use strict;
...

$tmpl->param (%params);
print $tmpl->output ();

<DIV CLASS='menu_bar'>
    <UL CLASS='main_menu'> 
...
        </LI>
    </UL>
</div>