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