database e perl

[franke]

salve avrei un quesito dovrei con uno script in perl recuperare una query database premetto ho un file php che mi collega al database in automatico tramite lo script

include('config.inc.php'); 

 $extrn = array();
$q = mysql_query("SELECT * FROM harmony_newscat");
while($r=mysql_fetch_array($q)) {
    $cid = $r['cid'];
    $nome = $r['nome'];
    $extrn[$cid] = $nome;    
}