eval {
	my $func = $dbora->prepare( q {

DECLARE
	l_sql VARCHAR2(100) ;	

BEGIN

	-- here timestamp to stdout
 	MY_PACKAGE.PROCEDURE_1;  
	-- here timestamp to stdout
 	MY_PACKAGE.PROCEDURE_2;  
	-- here timestamp to stdout
 	MY_PACKAGE.PROCEDURE_3;  	

	-- here timestamp to stdout
	
NULL;
END;	                                   
} ); 

$func->execute;