sub view {
  my $self = shift;
  my $q = $self->query;
  my $dbh = $self->param('dbh');
  ...
}