#!/usr/bin/perl
# handler.pl

package HTML::Mason;

use HTML::Mason;
use HTML::Mason::ApacheHandler;
use strict;

{
  package HTML::Mason::Commands;
  use DBI ();
  use CGI ();
}

DBI->install_driver('mysql');
CGI->compile(':standard');

my $ah = HTML::Mason::ApacheHandler->new( 
  comp_root => '/path/to/comp/root',
  data_dir  => '/path/to/data/dir'
);

sub handler {
  my ($r) = @_;   
  return $ah->handle_request($r);
}

1;