Error message "Use of uninitialized value in concatenation (.) or string at...

[veg]

The error message reads "Use of uninitialized value in concatenation (.) or string at test_connect.pl line 23"
What is strange is this code was previously working with no problems, but now seems to be producing the above message:

#!/usr/bin/perl -w
use DBI;
use strict;

my $dbh = DBI->connect( 'dbi:Oracle:database_name',
'username',
'password',
{
RaiseError => 1,
AutoCommit => 0
}
) || die "Database connection not made: $DBI::errstr";

my$sql = qq{ SELECT * FROM customers};
my $sth = $dbh->prepare( $sql );
$sth->execute();
my( $customerid, $companyname, $contactname, $address, $phone);
$sth->bind_columns( undef, \$customerid, \$companyname, \$contactname, \$address, \$phone);

while( $sth->fetch() ) {
print "CustID: $customerid, company name: $companyname, contact name: $contactname\n";
}

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

Any help would be appreciated
Thanks

[KevinR]

these have no values:

my( $customerid, $companyname, $contactname, $address, $phone);

then you use them in the next line:

$sth->bind_columns( undef, \$customerid, \$companyname, \$contactname, \$address, \$phone);

then use use them again:

while( $sth->fetch() ) {
print "CustID: $customerid, company name: $companyname, contact name: $contactname\n";
}

thats why you see the warnings (not errors).