Select Code to Download

sub query {
  my $self = shift;
...

  return $self->{__QUERY_OBJ};
}

my $webapp = App->new(
               TMPL_PATH => 'App/',
...
                          'max_upload_size' => 100
               }
             );