#!/usr/bin/perl 

use strict;
use warnings;

use Data::Dumper;
use SQLValidation;
use XML::Simple;


my $xml_obj1 =  XML::Simple->new();

#my $file_path     = 'C:\Users\Desktop\sql_test.xml' ;
my $file_path     = 'C:\Users\Desktop\derived_tif_cd.XML' ;
my $xmlfile       = $xml_obj1->XMLin($file_path) or die "Failed for $file_path: $!";

#print Dumper $xmlfile;
=c
my $val = $xmlfile->{queries}->{query}->[2]->{content};
print "$val";
=cut
foreach my $queries ($xmlfile->{queries}){
	if($xmlfile->{queries} eq 'query') {
		foreach my $query (@{$queries->{query}}) 
		{
			foreach my $sql ($query->{content}) {
					print "$sql\n";
				}
		}
	}
	else {
		foreach my $query (@{$queries->{query}}) {
			print "---->$query\n";
		}
	}
}