#!/usr/bin/perl

use DBI;
use strict;
use warnings;

## Set up connection to csv data file as a database
my $dbh = DBI->connect("dbi:CSV:f_dir=./", "", "",
        {AutoCommit => 1, RaiseError => 1});

my $sth = $dbh->prepare("SELECT AVG(col2 + col3) FROM mydata.csv");
$sth->execute();
my $value = $sth->fetchrow_array;

foreach (@value){
    print $_."\n";
}

$sth->finish();
$dbh->disconnect();

##</code><code>##

my $sth = $dbh->prepare("SELECT AVG(col3) FROM mydata.csv");

##</code><code>##

my $sth = $dbh->prepare("SELECT (col2 + col3) FROM mydata.csv");

##</code><code>##

my $sth = $dbh->prepare("SELECT AVG(col2 + col3) FROM mydata.csv");

##</code><code>##

col1,col2,col3,col4

575,480,192,5

388,485,194,5

379,447,210,5

504,465,215,0.8

356,439,219,0.7

481,435,225,0.6