Select Code to Download

my $dbh = DBI->connect( "dbi:Oracle:".$ENV{"ORACLE_SID"}, "u", "p", 
          { AutoCommit => 0,    # must commit or rollback transactions
...
       if $DBI::err;
   return $rvalue;
   }

my $sth2 = $dbh->prepare("BEGIN cbtno.purge_images".
                "(:fil, :dir_alias, :name); END;")
...
    file_out := name;
    END LOOP;
END;