use XML::DOM;
	my @files = <$datapath/*.*>;
	foreach my $file (@files) {
		my $parser = XML::DOM::Parser->new();
		my $doc = $parser->parsefile($file);
		##I parse the documents
	}