#!/usr/bin/perl

use strict;
use warnings;
use Text::Diff;
use List::Util qw( max );

my @one = <<END =~ /.*\n/g;
one
two
three
four
five
six
seven
eight
nine
ten
END

my @two = <<END =~ /.*\n/g;
one
twoplus
three
four
five
six
seven
eight
nine
tenminus
END

print "no CONTEXT specified:\n";
print diff \@one, \@two, {STYLE => 'Table' };

print "\nlarge CONTEXT specified:\n";
print diff \@one, \@two, {STYLE => 'Table', CONTEXT => max( $#one, $#two) };