if ($Spreadsheet::ParseExcel::VERSION < ...) {
    package Spreadsheet::ParseExcel;
    *funktion = sub {
        ...
    };
}

    # Nervige Fehlermeldungen beim parsen von Excel-Dateien ausblenden, ohne
    # zu wissen was ich da eigentlich genau schraube. Jetzt gibt es immerhin
    # nur noch die Warnung, dass die Funktion neu definiert wurde.
    if ($Spreadsheet::ParseExcel::VERSION <= 0.2603) {
        package Spreadsheet::ParseExcel::FmtDefault;
        *TextFmt = sub($$;$) {
            my($oThis, $sTxt, $sCode) =@_;
            return $sTxt if((! defined($sCode)) || ($sCode eq '_native_'));
            #return pack('C*', unpack('n*', $sTxt));
            return pack('U*', unpack('n*', $sTxt));
        };
    }

no warnings 'redefine';