#!/usr/bin/perl

use strict;
use DBI;

# die Umgebungsvariable "ORACLE_HOME" muss gesetzt werden
$ENV{ORACLE_HOME} = '/path/to/oracle/10.2.0';

# DB-Verbindung oeffnen und initialisieren
my $dbh = DBI->connect("dbi:Oracle:[db]", '[user]', '[pw]');
$dbh->{RaiseError} = 1;
$dbh->func(1000000, 'dbms_output_enable');

# PL/SQL-Prozedur der DB aufrufen
my $csr = $dbh->prepare(q{
             BEGIN
                FOR i IN 1 .. 407 LOOP
                   dbms_output.put('a');
                END LOOP;
                --
                dbms_output.new_line;
             END;
          });
$csr->execute;

# alle Daten aus dem Puffer von "dbms_output" holen
my @ausgaben = $dbh->func( 'dbms_output_get' );

# diese Daten in eine Datei schreiben
foreach my $ausgabe (@ausgaben) {
   print $ausgabe;
   print "\n";
}

# DB-Verbindung schliessen
$dbh->disconnect;