use lib qw(../lib);
 use strict;
 use CGI::CMS::Main;
 my %set = (path => "../templates", size => 16, style => "Crystal", title => "CGI::CMS::GUI::Main", server => "http://localhost", login => "",);
 my $main = new CGI::CMS::Main(\%set);
 use CGI qw(header);
 print header;
 print $main->Header();
 use showsource;&showSource($0);
 print $main->Footer();