sub new {
  my $self = shift;
  my $q = $self->query();
  my $output;
  my $dbh = $self->param('dbh');

  return $output;
}

##</code><code>##

sub new {
  my $class = shift;
  my %data = { 'member data' => 'initial value' };
  return bless \%data, $class;
}

##</code><code>##

sub new {
  my $class = shift;
  my $self = $class->SUPER::new();  # call CGI::Application's new method

  # do your own initialization, as desired
}