#!/usr/bin/perl

use warnings;
use DBI;

$dbUser = "root";
$dbPass = "";

my $dbh = DBI->connect("DBI:mysql:dbname=moja_baza",$dbUser,$dbPass) or die "Nie można połączyć się z bazą danych!";

my $sql = "SELECT imie, nazwisko FROM kontakty ORDER BY imie";

my $sth=$dbh->prepare($sql) or die "Wystąpił błąd!";
my $result=$sth->execute or die "Wystąpił błąd!";

# wyświetlenie imion, nazwisk, posegregowanych wg. imienia ("ORDER BY imie"):
while (my $rekordy = $sth->fetchrow_arrayref)
{
    my ($imie, $nazwisko,) = @{$rekordy};
    print "$imie\t$nazwisko\n";
}

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