Select Code to Download

use Tie::TextDir;
use Digest::MD5;
...
print "\n** unique to $dirB **\n" . join "\n", @uniqA;
print "\n** modified files  **\n" . join "\n", @modified;
print "\n** finito **\n";

** common to chaffwin, chaffwin2 **
TO_DO
...
** modified files  **
chaffwin.o
** finito **