my $vorname = shift;
die "Falsche Parameterzahl!" unless defined $vorname;