Select Code to Download

while (<DATA>) {
  chomp;
  push @record, [split(/,/, $_, -1)];
}

use strict;
use Carp;
...
  }
  return @data;
}