my $output = IO::File->new("|tee $someFile");
  local *STDOUT;
  open STDOUT, '>&', $output;