text_diff.pl

#!/usr/bin/env perl
use strict;
use warnings;

use Text::Diff;
use Digest::MD5;
use Getopt::Long::Descriptive;
use File::Basename;
use Carp ();
use Tie::File;

my $ME = basename($0, '.pl');

my ($opts, $usage) = describe_options(
    "$ME.pl %o",
    ["file1|f1=s", "file1"],
    ["file2|f2=s", "file2"],
    ["help", "print this message"],
);

if ($opts->help) {
    print $usage->text;
    exit;
}