@lines = (`diff $args $file1 $file2`);
for (@lines) {
  print;
}