#!/usr/bin/perl

use strict; use warnings;

use Text::Diff;

my $diffs = diff 'a_file.txt' => 'b_file.txt';

print $diffs;