my $dbh = DBI->connect(blah blah)
      or die "Can't connect: $DBI::errstr";
   my $sth = $dbh->prepare("SELECT SYSDATE FROM DUAL")
      or die "Can't prepare: $DBI::errstr";