#! /usr/bin/perl
use warnings                                     ;
use strict                                       ;

sub setup                                        {
      my $self = shift                           ;
      $self->start_mode('mode1')                 ;
      $self->mode_param('rm')                    ;
      $self->run_modes(
              'mode1' => 'do_stuff'              ,
              'mode2' => 'do_more_stuff'         ,
              'mode3' => 'do_something_else'
      )                                          ;
                                                 }