sub load{return%{XML::Simple->new(ForceContent=>1)->XMLin($_[0])};}#loads xml
sub save{XMLout($_[1],OutputFile=>$_[0]);1;}#saves hash to xml