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
}