#!/usr/local/bin/perl
use DBI;
use strict;
use Spreadsheet::Write;

my $h=Spreadsheet::Write->new(
        file        => 'file.csv',
        encoding    => 'iso8859',
);

#connect to MySQL
my $dbh = DBI->connect(CONNECTION STRING HERE) or
        die "Can't connect to database\n";

my $sth_select = $dbh->prepare("SELECT id,overview FROM SOME_TABLE");

#EXECUTE SQL
$sth_select->execute();

$h->addrow('productcode','overview');

while (my ($id,$overview) = $sth_select->fetchrow_array()) {
        print "$overview\n";

        #PRINT CSV DATA
        $h->addrow($id,$overview);
}