my $parser = XML::LibXML->new();
		my $doc    = $parser->parse_file($newfile);
		my $query  = "/TradenetResponse/OutboundMessage/out:OutwardPermit/out:Declaration/out:Header/cac:UniqueReferenceNumber/cbc:SequenceNumeric/text( )";
        my($node)   = $doc->findnodes($query);
        $node->setData("$file_seq_number");