#!perl
# use module
use strict;
use warnings;
use feature qw(say);
use XML::LibXML;
use Data::Dumper;
use YAML;

use IO::All;# -encoding => 'iso-8859-1'; 
my $xml = new XML::LibXML;

use constant DEBUG => 0;
use constant OFFLINE => 0;

###########################################################################################################
############# EINLESEN DER DATEN ##########################################################################
my $MeonaDir = '<-- SOME PATH ON COMPANY SERVER ONLY AVAILABLE IF INTRANET --->';
my $io = io($MeonaDir);
my @meonaFiles = ();

unless (OFFLINE) {
	@meonaFiles = $io->all(0);
}



foreach my $file (OFFLINE, @meonaFiles) {
	my $dom;
	
	######## OFFLINE 
 	if (scalar @meonaFiles == 0){
		$dom = XML::LibXML->load_xml(IO => \*DATA);
	}
	else { ##### FILES ONLINE
		eval{
		$dom = XML::LibXML->load_xml(location => $file);
		};
		next if ($@);
	}
 	
	&Do_SOMETHING_HERE();
	last if scalar @meonaFiles == 0; ### WENN OFFLINE DANN GIBT ES NUR EIN XML
 }

__DATA__
<?xml version="1.0" encoding="UTF-8"?>
<object-stream>
</object-stream>