use Smart::Comments;
use strict;
use warnings;
use XML::Simple;
use if $ENV{DEBUG}, 'Smart::Comments';

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

#...