Select Code to Download

use Utils::XMLUtils qw(loadXMLFile
                       getNodesFromPath
...
}
wrtiteTofile($SigData,"sample.xml",0);
close(FILE);

package Utils::XMLUtils;
use strict;
...
    return $string;
}
1;

<SigData>
    <KVPair>
...
        <Key>....</Key>
        <Value>..</Value>
</SigData>

sub putData {
    my ($event, $BENodeMap, $testID,$eventName, $obj) = @_;
...
    }
    return 1;
}