超簡単サンプル。 package CGIsample; use base qw(CGI::Application); use strict; sub setup { my $self = shift; $self->start_mode('mode1'); $self->run_modes(mode1 => 'showmain'); } sub showmain{ my $self = shift; my $q = $self->query(); my $o…