The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
[% USE CSV -%]
[% IF opt %]
  [% CSV.dump(['MAC' 'Vendor' 'Company' 'Device' 'Port']) %]

  [% FOREACH row IN results %]
    [% mylist = [] %]
    [% device = row.device.dns || row.device.name || row.switch %]
    [% FOREACH col IN [ row.mac.upper row.oui.abbrev row.oui.company device row.port ] %]
      [% mylist.push(col) %]
    [% END %]
    [% CSV.dump(mylist) %]

  [% END %]
[% ELSE %]
  [% CSV.dump(['Vendor' 'Count']) %]

  [% FOREACH row IN results %]
    [% mylist = [] %]
    [% vendor = row.vendor || '(Unknown Vendor)' %]
    [% FOREACH col IN [ vendor row.count ] %]
      [% mylist.push(col) %]
    [% END %]
    [% CSV.dump(mylist) %]

  [% END %]
[% END %]