#!/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
}