Brauche dringend ein perl script