in reply to Printing Line Numbers in output file
diff:
system(diff => ( "--unchanged-line-format== %5dn %l\n", "--old-line-format=- %5dn %l\n", "--new-line-format=+ %5dn %l\n", $old_file, $new_file, )); [download]