use strict;
use warnings;
use File::Copy;

my @test1;
my @test2;
print "Enter the file path form where you want to copy file:\n";
chomp(my $path1 = <STDIN>);
opendir DH, "$path1" || die "$!";
@test1 = readdir (DH);

	print "@test1\n";
	

print "Enter the file path form where you want to copy file:\n";
chomp(my $path2 = <STDIN>);
opendir DH, "$path2" || die "$!";
@test2 = readdir (DH);

	print "@test2\n";
	

my $count = @test1;
my $count2 = @test2;
my $x = 0;
for ($x = 0; $x<$count2; $x++)
{
	if($test1[$x] ne $test2[$x])
		{
			
		print "$test1[$x] : $test2[$x]\n";
		
#		copy("$test1[$x]", "$path2") or warn "cannot copy $test1[$x]";
#		copy("$test2[$x]", "$path1")or warn "cannot copy $test2[$x]";;
		
		}
	
	
}