my $CSV = openCsv (file => "file.csv", headers => "auto");
while (my $row = <$CSV>) {
  print "$row->{Foo} has $row->{Bar} bar(s)\n";
}