use strict;
    use warning;

    use XML::LibXML;

    my $parser = XML::LibXML->new();
    		my $doc    = $parser->parse_file($newfile);
    		my $query  = "/tradenet/message/header/unique_ref_no/date/text( )";
            my($node)   = $doc->findnodes($query);
            $node->setData("$file_seq_number");