; public.ini
[/input.html]
short=Input
class=MVC::Input
title=Ein einfaches Formular

package MVC::Input;

use base main;
use strict;
use warnings;

# Request ohne Parameter
sub browse{
    my $self = shift;
    $self->{STASH}{showform} = 1;
}

# Wenn Parameter...
sub control{
    my $self = shift;
    if( $self->param('guckinput') || $self->param('input') ){
        $self->{STASH}{input} = $self->trim( $self->param('input'));
        # trim nimmt Leerzeichen raus und erzeugt HTML-Entities 
    }
    else{ $self->error('Unbekannter Parameter') }
}

1;#########################################################################
# Kompaktklasse: Template untenstehend
__DATA__

%if_showform%

<form action="%url%?" method="POST">
    <fieldset><legend>Input, Enter:</legend>
        <input name="input" value="%input%" autofocus>
        <input type="submit" name="guckinput" value="Guck Input">
    </fieldset>
</form>

%else%

<p>Ihre Eingabe: %input%</p>

<p><a href="%url%">Zurück zum Formular</a></p>

%endif%