The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
[% USE CSV -%]
[% CSV.dump([ 'VLAN ID' 'VLAN Name' 'Device Count' 'Port Count' ]) %]

[% WHILE (row = results.next) %]
  [% mylist = [] %]
  [% mylist.push(row.vlan) %]
  [% mylist.push(row.description) %]
  [% mylist.push(row.get_column('dcount')) %]
  [% mylist.push(row.get_column('pcount')) %]
  [% CSV.dump(mylist) %]

[% END %]