package My::App;
use base 'CGI::Application';

sub handler 
{
    my $r = shift;
    __PACKAGE__->new->run;
}

# Rest of CGI::Application code