sub Get_Allist{
	@files=();
	my $inputdir = $InP;
	find(sub {push @files,$File::Find::name if (-f $File::Find::name and /\.*$/); }, $inputdir);	  
	}
	
sub Move_Files{
foreach $srcfile (@files){ #Process each file in input folder
move("$srcfile", "$OutP\\.");
}
}