my $fh;
    open( $fh , "<", $arg{file}) or die;
    my $xml = XML::Simple->new(KeepRoot=>1) ;
    my $xml_data = $xml->XMLin($fh);