#!/perl $logA = "/path/to/logfile1"; $logB = "/path/to/logfile2"; $outFile = "/path/to/resultant/File"; open (DIFF, "diff $logA $logB|"; open (OUT, ">$outFile"); select (OUT); while (){print;} close (OUT); close (DIFF);