#!/usr/bin/perl -T

package Myapp;

use strict;
use warnings;

use Try::Tiny;

sub new {
    my ($class, $q) = @_;
    return bless {q => $q}, $class;
}

sub appy {
    my $self = shift;
    my $action = $self->{q}->param('action') || 'bailout';

    try { $self->$action; }
    catch { print "Unrecognized action : $action\n"; }
}

sub do_something {
    print "do something called\n";
}

package main;

use strict;
use warnings;

use CGI::Fast;
use Try::Tiny;

my $n = 0;

while (my $q = CGI::Fast->new) {
    my $query = $q->param('node');
    print "Content-type: text/plain\n\n";
    ++$n;
    print "You are request number $n. Have a good day!\n";
    print "query: $query\n";
    my $app = Myapp->new ($q);
    try { $app->$query }
    catch { error() };
    print "done!\n";
}

sub error {
    print "An error occurred.\n";
}