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

[% FOREACH row IN results %]
  [% mylist = [] %]
  [% mylist.push(row.dns || row.name || row.ip) %]
  [% mylist.push(row.alias) %]
  [% mylist.push(row.contact) %]
  [% mylist.push(row.location) %]
  [% CSV.dump(mylist) %]

[% END %]