open(OLDERR, ">&", \*STDERR) or die "Can't dup STDERR: $!";
open(STDERR, ">TESTDATEI")