CGI+Oracle fehler

[deus18]

hi zusammen

ich will eine abfrage per cgi an oracle stellen

heir das script:

#!C:/perl/bin/perl -w

use DBI;

use CGI qw(:standard escapeHTML);

use CGI::Carp qw(fatalsToBrowser);

my $wert = param('PROD_NR');

$dbh = DBI->connect('DBI:Oracle:database', 'user', 'pass' );

$sth = $dbh->prepare("select a,b from c where a = $wert");

$sth->execute;

$sth->bind_columns(undef, \$a, \$;

while (@row=$sth->fetchrow_array) { print "$status $ordid\n"; }

$sth->finish;

$dbh->disconnect;

wenn ich das ganze in perl kompiliere bekomme ich immer den fehler:

[Mon Jul 15 14:12:52 2002] ora.cgi: Name "main::row" used only once: possible typo at ora.cgi line 14.

hat da jemand ne ahnung woran das liegen könnte?

danke