open(GLOG, '>>', $log) || die "Kann $log nicht oeffnen: $!";
open(STDOUT, '>&GLOG');
open(STDERR, '>&GLOG');