Mam probelem i nie wiem jak go rozwiazac PERL + MYSQL:
my $show='Show tables from stad';
my $stht = $dbh->prepare($show);
$stht->execute();
my $sho;
while (my $ref = $stht->fetchrow_hashref()) {
$sho = "$ref->{'0'}";
}
print $sho;
czemu to nie działa
