Уменьшение образов

Задача следующая. На сервере находятся около сотни тысяч директорий с образами в формате Jpeg. Некоторые образы весят значительно больше, чем хотелось бы, поедая дисковое пространство. Нужно уменьшить такие образы до приемлемых размеров.

Требуемый алгоритм. Обойти все директории ниже заданного корня, считать размеры файлов и размеры изображений, вычислить сколько пиксел на один байт приходится в данном файле, если меньше заданной величины (например, 7) или если размеры изображения по горизонтали/вертикали больше заданного(1200x1200), то производится ресайз изоборажения (поверх исходного) с заданным уровнем качества (например, 75). Сохранить данные об операции в лог (полное имя файла, размер файла до сжатия, размеры образа до сжатия, размер файла после, размер образа после).

Как?

PERL либо Shell скрипт. Для обработки используем netpbm либо imagemagick.