view release on metacpan or  search on metacpan

script/size-dir-diff  view on Meta::CPAN

			}
		}
	}
}

sub print_help {
	print "\nsize-dir-diff - find differences between two directories\n\n";
	print "Usage: size-dir-diff [OPTION] PATH1 PATH2\n\n";
	print "Options:\n";
	print "\t-d\tprint duplicates\n";
	print "\t-e\tprompt if duplicates should be deleted (in PATH2)\n";
	print "\t-n\tprint files in PATH2 that do not exist in PATH1\n";
	print "\t-h\tprints this help\n";
	exit 0;
}

getopts('dhen', \%opts);

if ($#ARGV ne 1 or $opts{ 'h' }) {
	print_help();
}