Gast+2008-08-22 09:29:25--

open(my $fhFertig, "<Fertig.txt") or die $!;

while(<>) {

print $fhFertig $_;

} # while

close($fhFertig) or die $!;
[/perl]