my $dbh = DBI->connect ("dbi:CSV:", undef, undef, {
    f_dir      => ".",
    f_ext      => ".csv/r",
    RaiseError => 1,
    PrintError => 1,
    }) or die "Could not open database: $DBI::errstr";

my $result = $dbh->selectall_arrayref (join " " =>
    "SELECT vm.vm_name, vm_cluster, vFiler_IP, vFiler_cluster",
    "FROM   vm JOIN vfiler_ds",
    "WHERE  vm.vm_name = vfiler_ds.vm_name");