Написать простейший perl скрипт

Написать perl скрипт.
при запросе на скрипт gasdgfasdf.com/bnd.pl?siz...

должен отдасться html код с содержимым в заивисимости от переданных скрипту параметров

(function(){
    if(document.getElementById('ЗНАЧЕНИЕ_codeid=_ИЗ_ЗАПРОСА_ВЫШЕ')){
        //if (document.getElementById('ЗНАЧЕНИЕ_codeid=_ИЗ_ЗАПРОСА_ВЫШЕ').innerHTML===""){

document.getElementById('ЗНАЧЕНИЕ_codeid=_ИЗ_ЗАПРОСА_ВЫШЕ').innerHTML='<object type="application/x-shockwave-flash" data="http://[ДОМЕН]/[название этой папки зависит от значеия r=]/banner.swf" id="ЗНАЧЕНИЕ_переданное параметром id" width="ЗНАЧЕНИЕ_переданное параметром sizew" height="ЗНАЧЕНИЕ_переданное параметром sizeh">  <embed src="http://[ДОМЕН]/nnew1.swf" id="[название этого зависит от значеия r=]" width="ЗНАЧЕНИЕ_переданное параметром sizew" height="ЗНАЧЕНИЕ_переданное параметром id" type="application/x-shockwave-flash" pluginspage="www.macromedia.com/go/get..." allowScriptAccess="always"></embed> </object>';
        //}
    }
})();

ЗНАЧЕНИЕ_id=_ИЗ_ЗАПРОСА_ВЫШЕ –   переданный параметр codeid
[ДОМЕН] – самая верхняя строка из файла /domainlist.txt в котором даанные вида в колонку    строчки например
yandex.ru
google.com
sdgsdg.com

ЗНАЧЕНИЕ_переданное параметром id – переданный параметр id


width="ЗНАЧЕНИЕ_переданное параметром sizew" height="ЗНАЧЕНИЕ_переданное параметром sizeh" – и так всё ясно.


ВАЖНО: перед сдачей тестаните у себя работу, не надо мне по 5 раз давать не рабочие скрипты.