The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
[% USE CSV -%]
[% CSV.dump([ 'Address' 'DNS' 'Interface' 'Description' 'Prefix' ]) %]

[% WHILE (row = results.next) %]
  [% mylist = [] %]
  [% FOREACH col IN [ row.alias row.dns row.port row.device_port.name row.subnet ] %]
    [% mylist.push(col) %]
  [% END %]
  [% CSV.dump(mylist) %]

[% END %]