#!/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!";
}