Select Code to Download

use strict;
use warnings;
...
my $root = $tmp->root;

print $_->trimmed_text (), "\n" for $root->children ('para');

aaaaaaaaaaaaaaaaa dsnbbtejk
aldmflskddddddddddddddddddffffffffffffff