$logfilename = $log;
if (substr($log, 0, 1) ne "|") {
  $logfilename = ">>" . $log;
}
if (!open STDOUT, $logfilename) { die "Can't write to $logfilename: $!";}