package MyScript::Categories;
sub MainPage { ...main categories page... }
sub Add { ...add categories page... }
..etc..

##</code><code>##

my $ms = new MyScript; # this would go up at the top

package MyScript;
sub new {
	my $class = shift;
	our $library = new MyScript::Library;
	our $reviews = new MyScript::Reviews;
	bless {}, $class;
}


package MyScript::Library;
sub new {
	my $class = shift;
	bless {}, $class;
}
# all library subs go here

package MyScript::Reviews;
sub new {
	my $class = shift;
	bless {}, $class;
}
# all subs related to reviews go here