# change to and open the comparison directory
chdir("$input2") || die "Cannot change dir: $!";
opendir(DIR2, "$input2") || die "Cannont open dir: $!";
# read flie names to an array with user specified path
foreach $file2 (readdir DIR2)
{
 if($file2 =~ /lds/)
  {
   @files2 = join("\\", $input2,$file2);
  }
}
close(DIR2);