#!/usr/bin/perl
use XML::Simple;
@files = `ls`;
use XML::Parser;
foreach $input_file (@files){
 my $xml_parser = XML::Simple->new();
 my $data = $xml_parser->XMLin($input_file);
 
        my $date = $data->{'root'}->{'date'};
        my $time = $data->{'root'}->{'time'};

}