use File::Find;
        $i = 0;
        find(\&archive, $directory);

        sub archive
        {
                if($ext)
                {
                        // HIER //
                        $i++;
                }
        }