TestApp.pm

package TestApp;
use Dancer;

set content_type => 'text/plain';

my $count;
#foreach my $a ('a' .. 'z') {
    foreach my $b ('a' .. 'z') {
        foreach my $c ('a' .. 'z') {
            my $path = "${b}${c}";
            get "/$path" => sub {
                $path;
            };
            $count++;
        }
    }
#}

true;