Teacher's Guide Level A ISBN-13: 978-1-4190-4181-5ISBN-10: 1-4190-4181-9 Teacher's Guide Level A ISBN-13: 978-1-4190-4181-5ISBN-10: 1-4190-4181-9 open (FIN, "< in.xml") || "error input xml"; $content = ; my $twig = XML::Twig->new(pretty_print => 'nice'); $twig->parse($content); $twig->get_xpath('//source')->move('before', $twig->get_xpath('//pagesource')); $content = $twig->sprint; open (FOUT, ">output.xml") || "error"; print FOUT $content;