sub fehlerausgabe{ print $_[0]; }