#...
my $sth = $dbh->prepare("SELECT * FROM jgeier.test")
    or die $dbh->errstr;
$sth->execute()
    or die $sth->errstr;

print "[B]\n";

#
## Über die Ergebniszeilen des SELECTs iterieren...
#
while ( my @row = $sth->fetchrow_array() )
{
  print join( " : " , @row ) , "\n";
}
#...