#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

sub check_dirs {
    die "Please provide 2 Directories!\n" unless ($#ARGV == 1);
    for (@_) { die "Input $_ is not a directory!\n" unless (-d $_) };
}

check_dirs(@ARGV);

use File::DirCompare;

# Simple diff -r --brief replacement
use File::Basename;
File::DirCompare->compare($ARGV[0], $ARGV[1], sub {
    my ($a, $b) = @_;
    if (! $b) {
	printf "Only in %s: %s\n", dirname($a), basename($a);
    } elsif (! $a) {
	printf "Only in %s: %s\n", dirname($b), basename($b);
    } else {
	print "Files $a and $b differ\n";
    }
			  });

__END__
$ perl cmp.pl test1/ test2/
Files test1/common/common.txt and test2/common/common.txt differ
Only in test2/common: common.txt~
Only in test1: different1
Only in test2: different2