sub articles {
    my ($self) = @_;
    my $q = $self->query; # CGI query object
    my $n = $q->param('n'); # get article number

    ... # get and display the nth article
}