Additional Functions (con't)

  my $mode = $webapp->get_current_runmode;

  sub teardown {
      my $webapp = shift;
      my $dbh = $webapp->param('dbh');
      $dbh->disconnect;
  }

  $webapp->header_props(-type=>'image/gif',-expires=>'+3d');

  $webapp->header_type('redirect');
  $webapp->header_props(-uri => 'http://www.somewhere_else.com');

  sub cgiapp_get_query {
      require CGI::Simple;
      my $q = new CGI::Simple;
      return $q;
  }