Select Code to Download

#!/usr/bin/perl
use strict;
...

print $dom->findnodes('/r/p[2]/text()');
# Paragraph  here