How to get the backup of a package or procedure

Query For Package:
===============

SET LONG 9999999
SET HEAD OFF
set lines 300 pages 3000
col aaa for a300
SELECT DBMS_METADATA.GET_ddl('PACKAGE','&PACKAGE_NAME','&OWNER') aaa FROM DUAL;

INPUT: OWNER and PACKAGE_NAME

Procedure backup:

==============

SET LONG 9999999

SET HEAD OFF

set lines 300 pages 3000

col aaa for a300

SELECT DBMS_METADATA.GET_ddl('PROCEDURE','&PROCEDURE_NAME','&OWNER') aaa FROM DUAL;

INPUT: OWNER and PROCEDURE_NAME