#!/usr/bin/perl
use strict;
use warnings;
use DBI;

my $user = "foo";
my $password = "geheim";

# DSN legt den Treiber, Name der DB, Host und Port fest
my $dsn = "dbi:mysql:database=bla;host=foo;port=1234";

# Der eigentliche Connect mit Benutzer und Passwort
my $dbh = DBI->connect($dsn, $user, $password)
    or die "Error connecting to MySQL server: " . DBI->errstr();

# Beispiel fuer SELECT
# Die '?' sind Platzhalter, für die 1 und 2 eingesetzt werden
# Sollte man benutzen, um SQL-Injection durch fehlendes Escaping vorzubeugen
my $rows = $dbh->selectrow_arrayref("SELECT * FROM TABLE blubb WHERE a=? AND b=?", 1, 2);

# Über die Ergebniszeilen des SELECTs iterieren...
foreach my $row (@$rows) {
    ...
}

# Datenbankverbindung abbauen
$dbh->disconnect();