Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
system "diff -u $originalfile $changedfile";
use Data::Dump 'dd'; dd 'original', LoadFile $originalfile;
use Data::Dump 'dd'; dd 'changed',  LoadFile $changedfile;

Select or download this

--- original.11152489   2023-05-30 15:43:38.568028573 -0700
+++ changed.11152489    2023-05-30 15:43:38.571361943 -0700
...
              },
  },
)