Select Code to Download

my $dbh = DBI->connect(
   "DBI:CSV:f_dir=/export/home/devtools;csv_eol=\n;csv_sep_char=!;",
   {RaiseError=>1},
);

$sth->execute() or die "Cannot execute: " . $sth->errstr();

$sth->execute();

use strict; # please ;)
use DBI;
...
   file      => $file,
   col_names => $cols,
};