Select Code to Download

<?xml version="1.0" encoding="utf-8" ?>
<University>
...
        <student id="1002"/>
    </students>
</University>

#!/usr/bin/perl

...
open(TESTFILE,">result.xml");
print TESTFILE $doc->toString;
close(TESTFILE);