open my $oldout, ">&STDOUT"
  or die "Can't dup STDOUT: $!";
open STDOUT, ">", $fn
  or die "Can't open $fn: $!";

system $script, @args;

open STDOUT, ">&", $oldout;