#!/usr/bin/perl -w

package GENERIC;
use lib qw(.);
use strict;

BEGIN {
    use base 'CGI::Application'; # regular usage
    use base { 'CGI::Application' => 2.1 }; # new usage
    use base { # do the switch'a'roo to see an err message
        'DBI' => 1,
#        'DBI' => 16,
    };
}

sub setup {
    my $self = shift;
    $self->start_mode('hi');
    $self->mode_param('op');

    $self->run_modes(
            hi  => sub {" hi ".join(' ',caller())},
            AUTOLOAD => sub {" hello ".join(' ',caller())},
        );

}

package main;

my $DE_GENERIC = GENERIC->new();
   $DE_GENERIC->run();