sub entry :Args(4) {
 my ($self, $c, $year, $month, $date, $title) = @_;
 [locate and print article based on year etc]
}