use strict;
use warnings;
use XML::Simple;

; use Data::Dumper::Simple;

my $struct = XMLin('test.xml');
; print Dumper($struct);
if (defined $struct) {
    my $result_set = process_data($struct);
    ; print Dumper($result_set);
    send($result_set);
}

#...