Select Code to Download

use strict;
use DBI;
...
$sth->finish();

$db->disconnect;

$sth = $db->prepare("SELECT * FROM csv_test");
$sth->execute;
...
    printf "retrieved %d,%s\n", @$row;
}
$sth->finish;

    $$row[1] = decode( "utf8", $$row[1] );

my @values = map { decode( "utf8", $_ ) } $sth->fetchrow_array;