sub ReadDir{
	my $Directory=shift;
	my @Documents;
	print "Reading directory's content $Directory\n";
	my $wdir = Win32::Unicode::Dir->new;

	$wdir->open($Directory) || die;
	for ($wdir->fetch) {
		next if /^\.{1,2}$/;
		push (@Documents, $_)
	}
	$wdir->close || dieW $wdir->error;
	return \@Documents;
}