sub copyfiles($){
	my $path = shift;
	
	print "Copyfiles from: $path\n"; 
	opendir(DIR,$path);
	chdir($path); 
	@files = grep {/^\w.*/}readdir(DIR);
	closedir(DIR);
	print "Content: @files\n";
	while(defined($name = pop(@files))){
		if(-f $name){
			print "$name is a file, copy it to dest\n";
			#copy
		} elsif(-d $name) {
			print "$name is a folder, go deeper\n";
			copyfiles($name);
		}
	}
}