sub setup { my $self = shift; $self->{TEMPLATEDIR} = "/home/templates"; $self->start_mode('edit_setup'); $self->mode_param('rm'); $self->run_modes( 'setup' => \&setup_list, 'edit_setup' => \&setup_edit, 'view_listing' => \&view_listing, }