print CGI::header(-attachment=>'tabelle.csv',-type=>'text/csv');
binmode(STDOUT); # Muss nicht sein
print while CSV_wird_geneiert;

<a href="csv_creator.pl">LinkText</a>

print CGI::header(-attachment=>'tabelle.csv',-type=>'text/csv');
binmode(STDOUT); # Muss nicht sein
print while CSV_wird_geneiert;
# print while, wenn die Funktion die Zeile einzeln zurückliefert,
# liefert sie einen kompletten array, dann ohne while.
sub CSV_wird_generiert {
   # db_connect
   # sql_abfrage
   # db_disconnect
   # variable formatieren und zurückgeben
   return $formatierte_variable
}

#!/usr/bin/perl
#
use Oraperl;
use POSIX qw(strftime);
use CGI ':standard';
 
$DBUSER = 'dbuser/dbpass@database';
$lda = &ora_login($db, $DBUSER, '') || die "$ora_errstr\n";
 
print CGI::header(-attachment=>'tabelle.csv',-type=>'text/csv');
binmode(STDOUT); 
print CSV_wird_geneiert;
 
sub CSV_wird_generiert {
 
  @stmt="(select AUFTRAGSNUMMER, LEISTUNGSART, DAUER, KST_SENDE, KST_EMPFANG from BASE_ILV_MAXIMO
        where ABRECHNUNGSMONAT = '01.09.2002')"; 
 
        $csr=&ora_open($lda,"@stmt") || die "$ora_errstr\n";
        @result=&ora_fetch($csr);
 
  return @result
}

print CSV_wird_geneiert;

sub CSV_wird_generiert {

use strict;