#! /usr/bin/perl -w
                                                                                
package Comcoa;
use base 'CGI::Application';
use CGI::Carp qw(fatalsToBrowser);
use strict;
                                                                                
sub setup {
    my $self = shift;
    $self->start_mode('start');
    #$self->error_mode('error');
    $self->run_modes(
        'start' => 'start',
        'test'  => 'test');
}
                                                                                
sub test {
    die 'ARRRGH!';
}
                                                                                
sub start {
    #die 'UGGGGH!'; #NOTE1
   'huh';
}
                                                                                
sub error {
    "Oops we have an error?<p>$@";
}
                                                                                
1;