#!/usr/bin/perl

use strict;
use warnings;
use MyApp;

my $app = MyApp->new;
$app->run;

package MyApp;

use strict;
use warnings;
use base qw(CGI::Application);

sub setup {
  my ($self) = @_;

  $self->mode_param( 'rm' );
  $self->run_modes(
    step1 => \&step1,
    step2 => \&stepname,
  );
}

sub step1 {
  my ($self) = @_;

  return "<h2>Dies ist Step1</h2>";
}

sub stepname {
  return "Irgendein HTML-Code";
}