use Modern::Perl;
use Data::Dump qw/dump/;
use DBI;

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

my $query =
'SELECT file1.vm_name, vm_cluster, vFiler_IP, vFiler_cluster FROM file1 join file2 WHERE file1.vm_name = file2.vm_name';
my $result = $dbh->selectall_arrayref($query);

print dump($result);