#!C:/Strawberry/perl/bin/perl

use strict;
use warnings;

# Verbindung zur Datenbank
use DBI;

# Variablen definieren - Datenbank
my $dbs_user = 'ODBCLX';
my $dbs_pw = 'xxxxxxx';
my ($dbs, $dbs_result, $statement);

# Datenbankverbindungen herstellen
$dbs = DBI->connect('DBI:ODBC:LXSYDSN',$dbs_user,$dbs_pw) or die "Couldn't connect to database:" . DBI->errstr;

# Artikel einlesen und anzeigen
my ($artikel_nr, $bezeichnung, $beschreibung, $bestand) = undef;
$statement = "SELECT ArtikelNr, Menge_bestand, Bezeichnung FROM IQF3.FK_Artikel WHERE ArtikelNr = 'AGI01090'";
$dbs_result = $dbs->prepare ( qq {$statement} );
$dbs_result->execute();
while (($artikel_nr, $bestand, $bezeichnung, $beschreibung) = $dbs_result->fetchrow_array()) {
	print "\$artikel_nr\t: $artikel_nr\n";
	print "\$bestand\t\t: $bestand\n";
	print "\$bezeichnung\t: $bezeichnung\n";
	print "\$beschreibung\t: ";
	if (defined $beschreibung) {
		print "$beschreibung";
	}
	print "\n";
}