war nicht viel muehe, so ca 10 minuten; fuer die formatierung habe ich es durch Perl::Tidy durchgejagt, danach noch use strict und warnings reingeschrieben, die dadurch entstandenen fehler behoben, eine parameteruebergabe gemacht und ein paar debugging-prints gesetzt. dann wurde alles recht schnell klar