Select Code to Download

$dbh = DBI->connect('DBI:SQLite:vodafone.db',
                            {
...
                                AutoCommit  => 0,
                            },
                    );

my $sql = do {
    my $count = @$columns;
...
while (my $row = $csv->getline($FH) ) {
    $query->execute(@$row);
}