Переделка скрипта

Требуется переделка существующих скриптов бизнес-портала (каталог), написанных на Perl'e. Цель «научить» старый движок, рассчитанный на один сайт работать с двумя сайтами, формируя два разных вывода предприятий в двух разных каталогах.