Select Code to Download

get '/:year/:month/:day' => sub {
    my $year = params->{year};
    my $month = params->{month};
    ...
}

get '/*/*/*' => sub {
    my ($year, $month, $day) = splat;
    ...
}

sub jan : Regex('^01$') { my ($self, $context, $bar, $baz) = @_; }
sub feb : Regex('^02$') { my ($self, $context, $bar, $baz) = @_; }