system("$ENV{'ORACLE_HOME'}/bin/rman <<EOF
             connect target /
             connect catalog aaaaaaaaa/bbbbbbbb@rman-live
             show retention policy ; 
             show all ;
             EOF"
) 
or die "\n\tOops :: $!\n"   ;