my $csr = $dbh->prepare(q{
             BEGIN
                FOR i IN 1 .. 408 LOOP
                   dbms_output.put('a');
                END LOOP;
                --
                dbms_output.new_line;
                dbms_output.put_line('Hello World');
             END;
          });