Select Code to Download

#! perl
use strict;
...
}

print Dumper(\%unique_vendors);

$VAR1 = {
          'BETASYS' => 'Beta Systems Software',
...
          'ALLENGRP' => 'Allen Systems',
          'AONIX' => 'Aonix North America'
        };