my $xml_obj = new XML::Smart( $xml ) ;