C:\test>perl
use strict;
use warnings;
use XML::Simple;
use Smart::Comments;

sub process_data{ return @_ }
sub send{
    ### Entering send...
    ### Exiting  send...
}

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

### $struct: {
###            base => 'http://www.google.com'
###          }


### $result_set: 1


### Entering send...

### Exiting  send...