open STDOUT, ">$file" || die "Cannot open file $file : $!";   
 system "diff $old_file $file";
 select(STDOUT); # Restore default print to STDOUT
 close(STDOUT);