system(diff => (
    "--unchanged-line-format== %5dn %l\n",
    "--old-line-format=- %5dn %l\n",
    "--new-line-format=+ %5dn %l\n",
    $old_file,
    $new_file,
));