use lib qw(../lib);
 use HTML::Menu::Pages;
 use Cwd;
 my $cwd  = cwd();
 my $test = new HTML::Menu::Pages;
 use CGI::CMS qw(:all);
 print header;
 print start_html(-title => 'HTML::Menu::Pages', -style => '/style/Crystal/pages.css',);
 my %needed = (
 
         length => '345',
 
         style => 'Crystal',
 
         mod_rewrite => 0,
 
         action => "Pages",
 
         start => param('von') ? param('von') : 0,
 
         path => "../",
 
 );
 print $test->makePages(\%needed);
 use showsource;&showSource($0);
 print end_html;