#! /usr/bin/perl -w
use strict;
use DBI;
use FindBin;
open my $fh, '>', $FindBin::Bin . '/Tanktalus';
print $fh ("DATE,NUMBER\n2005-05-16,2\n2005-05-17,4\n");
close $fh;

my $dbh = DBI->connect("dbi:CSV(RaiseError=1):csv_eol=\n");
for my $sql(<DATA>){
    my $sth = $dbh->prepare($sql);
    $sth->execute;
    $sth->dump_results if $sth->{NUM_OF_FIELDS};
}
__END__
SELECT date,number FROM Tanktalus
SELECT SUM(number) from Tanktalus
UPDATE Tanktalus SET number=8 WHERE date='2005-05-17'
SELECT date,number FROM Tanktalus
SELECT SUM(number) from Tanktalus
SELECT number FROM Tanktalus WHERE date = '2005-05-17'