sub main {
    
    my $self = shift;
    my $q = $self->query;  # the CGI object
    my $tmpl = $self->load_tmpl( 'main.tmpl' );

    $pjx->build_html( $q, $tmpl->output );          # <-- no reference
    
}