http://search.cpan.org/~thilo/CGI-Application-Plugin-AutoRunmode-0.08/AutoRunmode.pmより Catalyst風に書けるね。 以下ソース neko.cgi #!/usr/loca/bin/perl use strict; use warnings; use Neko; my $neko = Neko->new(); $neko->run(); Neko.pm package Neko; use strict; use warnings; use base 'CGI::Application'; use CGI::Application::Plugin::AutoRunmode; sub setup { my $self = shift; $self->mode_param('__mode'); $self->h