my $dbh = DBI->connect(...);
my $sth = $dbh->prepare(...);
$sth->execute(...);