sub setup {
    my $self = shift;
    my $cgi = $self->query;

    $cgi->param('mode','stats')
        if $cgi->param('stats');

    ...
}