Fatal error: Declaration of sql_class::__construct() must be compatible with that of sql_interface::__construct() in /www/htdocs/v029517/nod/db/db_mysql_class.php on line 37

So not only are you looking for one in perl, but one that works too, right?

;-)

s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)
[download]