use strict;
use warnings;

my $xls = Spreadsheet::ParseExcel::Simple->read('/tmp/carlist.xls');
open OUT, '>', 'carlist.txt' or die $!;

# these are made up: vin = 2, model = 4, year = 7
# put the right column numbers in here
my @cols = (2,4,7);

foreach my $sheet ($xls->sheets) {
   while ($sheet->has_data) {  
      my @data = $sheet->next_row;
      print OUT, "@data[@cols]\n";
   }
}