Select Code to Download

#!/usr/bin/env perl
use warnings;
...
    print "After: $text\n";
}
#$dom->toFile('out.xml', 1);