See CGI::Application::Loop, but basically

package HI;
use base qw[ CGI::Application ];
sub setup { warn "I AM SETUP!!!!!!!!!!!!!!!!!!" }
package main;
my $hi = HI->new();
warn "Got myself a HI, now I gotta RUN IT!!!!!!!!!!!!!!!!!";
$hi->run;
__END__
I AM SETUP!!!!!!!!!!!!!!!!!! at - line 3.
Got myself a HI, now I gotta RUN IT!!!!!!!!!!!!!!!!! at - line 6.
No such run mode 'start' at - line 7
[download]