my $rechnung = 'Pfad/zur/txt/';
open(DATEI,">$rechnung") or print $!;
print DATEI "Rechnungsnummer:\t",$rechnungsnummer,"\n";
print DATEI "Name:\t",$name,"\n";
# usw. wobei $rechnungsnummer etc. aus der Datenbank genommen werden
close DATEI;