while ( ($status = $st->fetch( \$result )) == 0) { print returns "$result\n"; } die "$st->{Error}\n" if ($status < 0);