ам ... не разбирам много от перл но все пак:
пробвай да вкрараш стила който искаш в променлива и да я запазиш
примерно: print ("<input type=\"hidden\" name=\"css\" value=\"style1.css\">\n");
отдавна не съм писал на перл а и не разбирам много но ... мисля че ще стане.

Break The UnBreakable