my $fehler;
my $checker=0;
sub falsch {
        $fehler = @_;
        $checker=1;
}
&falsch('Fehler 01: Bitte geben Sie einen Vornamen an!<br>') unless $vorname;
&falsch('Fehler 02: Bitte geben Sie einen Nachnamen an!<br>') unless $nachname;
&falsch('Fehler 03: Bitte geben Sie eine eMail Adresse an!<br>') unless $email;
&falsch('Fehler 04: Bitte geben Sie einen Text an!<br>') unless $text;
&falsch('Fehler 05: Bitte eine gueltige Postleitzahl(PLZ) eingeben !<br>') unless ($plz =~ m/^\d{5}$/);
&falsch('Fehler 06: Bitte eine gueltige eMail Adresse eingeben !<br>') unless ($email =~ m/^[a-zA-Z0-9][-\_\.]*[a-zA-Z0-9]\@[a-zA-Z0-9][-\_\.]*[a-zA-Z0-9]\.([a-zA-Z]){2,4}$/);
&falsch('Fehler 07: Bitte eine gueltige Telefonnummer eingeben !<br>') unless ($telefon =~ m/^[0]\d+.\d+$/);
&falsch('Fehler 08: Bitte eine gueltige Telefaxnummer eingeben !<br>') unless ($telefax =~ m/^[0]\d+.\d+$/);
&falsch('Fehler 09: Bitte einen gueltigen Strassennamen eingeben !<br>') unless ($strasse =~ m/\w?\-\w/);
&falsch('Fehler 10: Bitte einen gueltigen Ortsnamen eingeben !<br>') unless ($ort =~ m/\D/);
&falsch('Fehler 11: Bitte einen gueltigen Landesnamen eingeben !') unless ($land =~ m/\D/);
if($checker==1)
{
        &missing($fehler);
exit;
}