#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;