my $file = "stdout.txt";
open (STDOUT, "> $file") or die "Kann '$file' nicht öffnen!";