Исходный код для задач с http://perltrap.com/ru