#!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";
}

$artikel_nr	: AGI01090
$bestand	: 57
$bezeichnung	: Poster A1-PremiumMandate 
$beschreibung	:

$statement = "SELECT ArtikelNr, Menge_bestand, Bezeichnung, Beschreibung FROM IQF3.FK_Artikel WHERE ArtikelNr = 'AGI01090'";

DBD::ODBC::st fetchrow_array failed: [Sybase][ODBC Driver]Ung³ltige Zeichenfolgen- oder Pufferlõnge (SQL-HY090) at C:\...\test-memo.pl line 26.