if(tie my $status, 'SQL', {query => $sql-zeugs, CB => \&callback}){
 # Ok, wir können $status abfragen und die Callbackfunktion rufen 
 tied($status)->cb_array; # Method in Class 'SQL'

 # in cb_array{} wird vermittels {STH} über das Resultat iteriert
 # und jede Zeile als Array-Referenz an die Callback-Funktion {CB} gegeben
}
else{
 # Nein, es gab einen Fehler, wir fragen $@
}