Select Code to Download

#create database handle:
my $dbh = DBI->connect(...) or die "...";
...
$dbh->do("delete from mytable;");
#or prepare query:
my $sth = $dbh->prepare("select 1 from dummy;");