use Strict; use File::Stat; use Digest::MD5; print "Enter the Path where all the data files are available:\t";