Select Code to Download

sub new {
  my $self = shift;
  my $q = $self->query();
...

  return $output;
}

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

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

  # do your own initialization, as desired
}