#*****************************************************************#
  # DATENBANK:                                                      #
  # Verbindung herstellen DBI                                       #
  #*****************************************************************#
  
  # Modul DBI einbinden

  use DBI;

  use includedatei;

  # Verbindung aufbauen

  $dbh = includedatei->dbconnect();

  # Verbindung beenden

  $dbh->disconnect();

  
  #*****************************************************************#
  # Subroutine                                                      #
  #*****************************************************************#  

  
  sub dbconnect()
  {
    # Verbindungsdaten

    $HOST = "nordwind";
    $BASE = "usr_web1_1";
    $USER = "web1";
    $PASS = "XxXxXxXx";

    $datasource = "DBI:mysql:database=$BASE;host=$HOST";
    $dbh = DBI->connect($datasource, $USER, $PASS, {'RaiseError' => 1});

    return $dbh;
  }



  #*****************************************************************#
  # Literaturhinweis                                                #
  #*****************************************************************#  
 

Programming the Perl DBI Database programming with Perl By Alligator Descartes & Tim Bunce O'Reilly 2000