use strict;
use warnings;
use autodie;

use DBI;
use Data::Peek; # For debugging only

my $dbh = DBI->connect ("dbi:CSV:", undef, undef, {
    f_dir      => ".",
    f_ext      => ".csv/r",
    RaiseError => 1,
    PrintError => 1,
    });

my $sth = $dbh->prepare ("select * from viewmanifest");
my %rec;
$sth->execute;
$sth->bind_columns (\@rec{@{$sth->{NAME_lc}}});
while ($sth->fetch) {
    DDumper \%rec; # For debugging only
    print $rec{dahandle}, "\n";
    }
$dbh->disconnect;