Select Code to Download

for my $d ($root->findnodes($xpath))
{
...
    }
    print $d->as_trimmed_text,qq(\n) if (defined($d->as_text));
}

#!/usr/bin/perl

...
    baz03
    </p>
</div>