Select Code to Download

use warnings;
use strict;
...
for my $e ($dom->find('html html > body p')->each) {
    print $e->to_string, "\n";
}