sub GetAllFiles {
my ($dir) = $_[0];
use File::Find;
finddepth (\&wanted, $dir);
return @files;
}


sub wanted {
my @files = ();
push @files,$File::Find::name;
return @files;
}