Select Code to Download

my @records;
my @fields = qw( Company Title Phone Address Contact );
# read in a record at a time
...
    }
    push @records, \%record;
}