I have a very simple Oracle PL/SQL procedure that contains some dbms_output statements.

#enable output
$dbh->func( 1000000, 'dbms_output_enable' );


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

    $func->execute;
   
    $dbh->commit;
    $dbh->finish;
    
};
    
    #retrieve output
    my @text = $dbh->func( 'dbms_output_get' );
    
    foreach (@text) {
        print "$_\n";
    }


$dbh->disconnect;
[download]

Output is

$ perl testsm.pl

SMTEST 1

SMTEST 2

SMTEST 3

$

If the procedure has a parameter passed then the dbms_output no longer appears

enable output
$dbh->func( 1000000, 'dbms_output_enable' );


my $rv;
eval {
    
   my $func = $dbh->prepare( q {BEGIN SMTEST($rv);END;});
    $func->bind_param(":parameter1", \$rv, '0');
    $func->execute;
   
    $dbh->commit;
    $dbh->finish;
    
};
    
    #retrieve output
    my @text = $dbh->func( 'dbms_output_get' );
    
    foreach (@text) {
        print "$_\n";
    }


$dbh->disconnect;
[download]

Output is

rbmvm@tlnt smenzies$ perl testsm.pl

rbmvm@tlnt smenzies$

Any ideas or soltions most welcome