my $SELECT = "SELECT irgendwas";
my $select = $dbh->prepare( "$SELECT" ) ||
	die "Kann Statement nicht vorbereiten: $DBI::errstr\n";
$select->execute ||
	die "Kann Abfrage nicht ausfuehren: $DBI::errstr\n";
while (my @TMP = $select->fetchrow_array()) {
    mache irgendwas mit dem output ....
}#while (my @TMP = $select->fetchrow_array()) {