#!/usr/bin/perl -w
use strict;
use warnings;
my $fehler = '';
my $test = 'Test';
do {
        if ($test ne lc $test) {$fehler = 'Grossbuchstaben unzulaessig!'}; last if $fehler ne '';
        if ($test eq '') {$fehler = 'Ist leer'}; last if $fehler ne '';
        print "Wird verarbeitet";
} while(0);
if ($fehler ne '') {
        print "Fehler aufgetreten!";
}