#!/usr/bin/perl
    #use strict;
    use warnings;
    use DBI;
    use Text::CSV;

    # Connect to the database, (the directory containing our csv file(s))

    my $dbh = DBI->connect("DBI:CSV:f_dir=.;csv_eol=\n;");

    # Associate our csv file with the table name 'results'

    $dbh->{'csv_tables'}->{'results'} = { 'file' => 'test.csv'};


#    my ($avg) = $dbh->selectrow_array("SELECT avg(ERWWCOMMUNITIES_Memory_Pages_sec) FROM results");
    my ($r) = $dbh->selectall_arrayref("SELECT avg(ERWWCOMMUNITIES_Memory_Pages_sec), count(1) FROM results");
    my ($agv,$count) = @{$r->[0]};

#    print ("$avg,\n");
     print ("@r \n");