Cursors: Can this DBI::Oracle code be converted to DBI::OCDB?

The following code sample works just fine as it is. However, I need to
convert it so that it uses DBI::OCDB. Is this possible?

use strict;
use DBI;
use DBD::Oracle qw(:ora_types);

my $dbh = DBI->connect( 'dbi:Oracle:dsn', 'user', 'password' );

my $sth1 = $dbh->prepare(q{
BEGIN OPEN ? FOR
SELECT * FROM user_tables WHERE table_name like ?;
END;
});

my $sth2;
$sth1->bind_param( 2, $ARGV[0] );
$sth1->bind_param_inout( 1, \$sth2, 0, { ora_type => ORA_RSET } );
$sth1->execute;

while ( my @row = $sth2->fetchrow_array ) {
print "$row[0]\n";
}

$dbh->disconnect;

.