Select Code to Download

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

{
  local  $/ = '\0';
  $line = `diff $args $file1 $file2`;
  print $line;
}