use Text::Diff;
use Text::Diff::Table;
my $diff = Text::Diff::Table->new;
$tst1 = '/home/dani/perl/test12.pl';
$tst2 = '/home/dani/perl/test12.pl.old';
$diff = diff $tst2, $tst1, { STYLE => "Table" };
$diff = diff $tst2 => $tst1;

use Algorithm::Diff;
$diff = Algorithm::Diff::sdiff($tst2,$tst1);

use YAML::Dumper;
my $dumper = YAML::Dumper->new;
$dumper->indent_width(4);
$bla = $dumper->dump($diff);
$bla =~ s/</&lt;/g;
$bla =~ s/$tst2/Neue Version/g;
$bla =~ s/$tst1/Alte Datei/g;
print '<pre>'.$bla.'</pre>';