Select Code to Download

  $dbh->{AutoCommit} = 0; #DO NOT USE THIS LINE
#  $dbh->begin_work;  #USE THIS LINE

$dbh->do("DROP TABLE IF EXISTS $tablename"); #ADDED THIS
$stmt = "CREATE TABLE IF NOT EXISTS $tablename.....

use SQL::Abstract;
use Data::Dumper;
...
  { c1 => "AAA", c2 => "BBB", c3 => "ccc", rowid => 3 },
  { c1 => "A", c2 => "B", c3 => "c", rowid => 4 },
]