请教个perl脚本写法，谢谢

我需要写一个perl程序，连接informix数据库，将获取的字段值写入到xml文件中，xml文件名根据当前时间整点生成

读取数据库字段值的sql需要单独写到一个配置文件中config.xml，内容如：select a.text  test,a.text1  test1 from wyeh a where a.time='2010-08-23 00:00:00'

生成的xml格式如下，名称应该为 HB_YY_TEST-0-20100823.xml：

<xsdAYKPISet xsdAYKPISetName="VOICENET2">
     <xsdAYStatItem xsdAYKPISetTime="2010-08-23" xsd:statisticName="HB" >
                        <xsd:test xsd:kpiTime="ALL">4563</xsd:test>
                        <xsd:test1 xsd:kpiTime="ALL">65.46</xsd:test1>
      </xsd: DAYStatItem >
……………………..
      <xsdAYStatItem xsdAYKPISetTime="2010-08-23" xsd:statisticName="WH" >
……………………..
  </xsdAYKPISet >


  麻烦哪位老大帮忙编写个perl的脚本语句，谢谢

use DBI;
use XML::Simple;
connect();
fetchrow_hashref();
XMLout();