$ perl -MData::Dumper -MXML::Simple -e 'print Dumper XMLin(q{example.xml});'
$VAR1 = {
          'objects' => {
                       'object' => {
                                   'cur_date' => {},
                                   'cur_time' => {},
                                   'ecl_couloir' => {}
                                 }
                     }
        };

##</code><code>##


print "xml content: '$xml'\n";