>If anyone has any thoughts on this I would appriciate it.
The warning is telling you that you didn't explicitly close your database
handle before trying to reuse that handle. If you were to comment out the
'$dbh->disconnect()' line below, you would get this warning. Be sure to
disconnect.
--
#! /usr/bin/perl -w
use strict;
use DBI;
print "Calling DBI function\n";
dbi_test();
print "Calling DBI function\n";
dbi_test();
exit;
#################
sub dbi_test() {
my $dbh = DBI->connect('dbi:mysql:dbname ', 'user ', 'pwd ');
my $sql = "SELECT * FROM clients";
my $sth = $dbh->prepare($sql);
$sth->execute || die "Could not execute SQL statement";
# output
while (my @row=$sth->fetchrow_array)
{ print "@row\n" };
$sth->finish();
$dbh->disconnect();
}
doug
$_ = <<END; s/../pack('C',hex($&))/ge; print;
4a75737420616e6f74686572205065726c206861636b65722c
END
