In skontoxs Version fehlt in der undokumentierten Methode noch my ($breite, $hoehe) = undef; oder ähnliches, da sich Perl sonst über nicht initialisierte Variablen beschweren könnte.