### hauptprog.
use db_config;

my $abfrage = 'SELECT xxx limit 0,30;';
my $db_name = 'test3';

my $dbh = db_config::getDB($db_name);

my $sth = $dbh->prepare($abfrage);
$sth->execute() or die "Error in SQL-Query";
while (my @line = $sth->fetchrow()) {
print join("|",@line)."\n";
}

$sth->finish();
$dbh->disconnect();

### db_config
package db_config;

use DBI;

$DB_HOST = "127.0.0.1";
$DB_PORT = "3306";
$DB_USER = "root";
$DB_PASSWD = "";

sub getDB {
my $DB_NAME = shift;
my $DB_DSN = "DBI:mysql:$DB_NAME:$DB_HOST:$DB_PORT";
my $dbh = DBI->connect($DB_DSN, $DB_USER, $DB_PASSWD, {PrintError => 1, RaiseError => 1, AutoCommit => 0});
return $dbh;
}

1;