Perl / Делаем спрайт-иконки на Perl

Как ни странно, не удалось мне найти простую консольную утилиту для склеивания в один спрайт кучи png-иконок, поэтому пришлось взять в руки mcedit (все, что было под рукой) и написать небольшой скрипт, который учитывает, в отличие от других реализаций, что при слишком большой ширине/высоте картинки возникают проблемы с реализацией просмотра png в Windows GDI (там ограничение, похоже, signed int).
Под катом, собственно код с небольшими пояснениями.

Полный текст статьи читайте на Habrahabr.ru