Select Code to Download

$VAR1 = {
    '6' => {
...
       'descr' => 'This is the main diablo category'
     }
  };

<div class='category' style='position:relative; left: 5em;'>
    <div class='title'><tmpl_var name='title'></div>
    <div class='descr'><tmpl_var name='descr'></div>
    <tmpl_var name='children'>
</div>

#!/perl/bin/perl
use strict;
...
  unshift @data,$child;
  return @data;
}