use Text::Diff;
my $diff = diff "C:/after.txt", "C:/before.txt", { OUTPUT => \*DIFFILE, STYLE => "Table" };