my $func = $dbh->prepare( q {BEGIN SMTEST($rv);END;});