Games::Maze Create Mazes as Objects. use Games::Maze; my $m1 = Games::Maze->new(dimensions => [12,7,3]); my $m2 = Games::Maze->new(dimensions => [8,5,2], cell => 'Hex'); $m1->make(); print scalar($m1->to_ascii()); $m1->solve(); print "\n\nThe Solution:\n\n", scalar($m1->to_ascii()); INSTALLATION perl Makefile.PL make make test make install