[-
use Embperl::Form::Validate;
$epf = Embperl::Form::Validate -> new ([
    [
    -key     => 'datum',
    -msg     => 'Bitte Datum eintragen',
    required => 1,
    -msg     => 'Datum überprüfen',
    matches_regex => '\d+\.\d+\.\d+',
    ],
    [
    -key     => 'stunden',
    -msg     => 'Bitte Stunden eintragen',
    required => 1,
    -msg     => 'Stundenzahl nicht numerisch', # fail-msg for next test
    -type    => 'Number',  # only Number and Default available
    -msg     => 'Stundenzahl muß >0 sein', # fail-msg for next test
    gt       => 0,
    ],
    [
    -key     => 'kommentar',
    -msg     => 'Bitte (sinnvollen) Kommentar eingeben',
    required => 1,
    ],
], 'foo');
$failures = $epf -> validate_messages ;
if (@$failures) 
    {
    print OUT "Fehler:\n";
    foreach $msg (@$failures) {
    print OUT "$msg
\n";
    }
}
-]