my $dbh = DBI->connect(
   qw(DBI:vendor:database:host user pass),
   {RaiseError => 1},
);

my $sth = $dbh->prepare('get me some records and stuff');
$sth->execute;