use Text::Diff;
my $foo = Text::Diff::diff $file1, $file2, \%options;