print qq~
\$root->{xml}->{PayoneerResponse}->{Echo}->{Status}->{value}='~, $root->{xml}->{PayoneerResponse}->{Echo}->{Status}->{value}, qq~';
\$root->{PayoneerResponse}->{Echo}->{Status}->{value}='~, $root->{PayoneerResponse}->{Echo}->{Status}->{value}, qq~';
\$root->{Status}->{value}='~, $root->{Status}->{value}, qq~';
~;