my $flag = 'foo';

$dbh->func(1000000, 'dbms_output_enable');
$sth = $dbh->prepare(" BEGIN do.pl(?); END; ");
$sth->execute($flag);
$result = $dbh->func('dbms_output_get');
print $result;
$sth->finish();