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