#!/usr/bin/perl --

use strict;
use warnings;
use CGI;

Main(@ARGV);
exit(0);

sub Main {
    ... # CGI program here
}


##</code><code>##

package MyProgram;
sub handler {
    CGI::initialize_globals(); # unneeded if using CGI->new
    ... # CGI program here
}


##</code><code>##

MyApp->new->run; 

##</code><code>##

Catalyst::ScriptRunner->run('MyApp', 'Apache');