print "redirecting STDOUT\n";
open (SAVEOUT, ">&STDOUT");
open (STDOUT, ">$file") or die "Can't open $file: $!";

#STDOUT is now redirected
system "diff $old_file $file";

open (STDOUT, ">&SAVEOUT");
print "STDOUT is back to normal!\n";