Select Code to Download

    use strict;
    use warning;
...
            my $query  = "/tradenet/message/header/unique_ref_no/date/
+text( )";
            my($node)   = $doc->findnodes($query);
            $node->setData("$file_seq_number");

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