use DBI;
my &#36dbh = DBI->connect(&#36dsn); # hier eintragen, was du fuer connect-parameter hast
unless (&#36dbh) { # fehlerabfrage
  print "Fehler: konnte nicht zur Datenbank verbinden: &#36DBI::err_str\n";
  exit 0;
}